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SUMMARY 


THE  PROBLEM  1  ' 

A 

J  The  Hewlett  Packard  (HP)  5451C  Fourier  Analyzer  formerly  Supported  two 
plot  packages:  One  in  the  Fourier  environment  and  one  in  the  R+E  environment. 
Thus,  programs  which  produced  graphic  output  in  the  Fourier  environment  could 
not  run  in  the  RTE  environment  and  conversely.  Therefore,  it  was  necessary  to 
develop  a  standard  package  of  plot  subroutines  that  could  run  under  any 
operating  system.  The  package  is  comprised  of  several  FORTRAN  subroutines 
which  interact  directly  with  the  plot  devices,  and  also  provide  the  capability 
to  plot  to  the  operator's  terminal. 


FINDINGS 


t  t* 


The  plot  package  has  been  found  to  be  extremely  useful  for  graphic  output 
on  the  HP-5451C  because  it  can  run  under  any  operating  system. 


RECOMMENDATIONS 

^  The  plot  package  has  been  tested  on  the  HP-5451C  system  and  can  be 
recommended  to  users  with  a  similar  need. 
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GENERAL  PLOT  SUBROUTINE  PACKAGE  FOR  THE 
HEWLETT  PACKARD  5451C  FOURIER  ANALYZER 


INTRODUCTION 

Data  plotting  is  an  integral  part  of  any  data  acquisition  and/or  analysis 
software  package.  Plots  are  very  helpful  in  data  analysis  and  problem 
solving.  Furthermore,  results  in  graphical  form  are  usually  much  easier  to 
analyze  than  are  the  results  in  printed  tabular  form. 

This  subroutine  package  is  a  programming  tool  that  allows  the  user  to 
conveniently  use  various  plot  devices  on  the  HP-5451C  system.  The  plot 
devices  used  were  the  HP-9872T  plotter  and  the  operator's  terminal.  Libraries 
of  compatible  subroutines  are  provided  which  permit  the  user  to  generate  a 
wide  variety  of  plotted  information  including  the  following: 

1 .  Labelled  axes. 

2.  Textual  data. 

3.  Graphs  from  data  arrays  (x  and  y),  with  optional  scaling  of  either 
array  and  centered  symbols  denoting  the  location  of  a  data  point. 

4.  Variables  from  the  FORTRAN  IV  calling  program  plotted  in  real  or 
integer  format. 

5.  Individual  point  and  vector  plotting. 

The  user  also  has  control  of  the  following: 

1.  "Pen"  selection. 

2.  "Pen"  position  (up  or  down). 

3.  Origin  of  plotted  information. 

4.  Scaling  of  plot. 

5.  Rotation  of  text  and  axes. 

6.  Generation  of  multi-page  plots. 


FUNCTION 


The  following  subroutines  are  supplied: 

PLOTS  -  Initializes  plot  software  package  for  user's  hardware  and  software 
configuration. 

PLOT  -  Moves  "pen"  to  specified  (x,y)  coordinates  with  "pen"  in  up  or  down 
position;  permits  origin  control;  controls  pagination. 

FACTO  -  Scales  size  of  subsequent  plotting  data. 

WHERE  -  Returns  current  position  and  factor  to  user  program. 

SYMBO  -  Plots  textual  information  (such  as  titles)  at  desired  angle  and 
size  with  additional  capability  of  plotting  special  symbols  for  marking  data 
points. 

NUMBE  -  Plots  each  digit  in  a  variable,  including  optional  decimal  point 
and  truncation. 

SCALE  -  Calculates  parameters  for  axis  annotation  and  size  of  plot  for 
data  array. 

AXIS  -  Plots  an  axis,  at  desired  angle,  including  segment  markings  and 
optional  title. 

LINE  -  Generates  the  plot  of  data  in  two  arrays  (x  and  y)  with  optional 
connecting  lines  and  special  symbols. 

Four  packages  with  identical  subroutine  calling  sequences  are  available.  The 
computer  systems,  plot  peripherals,  and  unique  characteristics  of  each  package 
are  summarized  in  Table  1. 

Four  interrelated  coordinate  systems  are  used,  as  shown  in  Figure  1.  Embedded 
within  the  subroutines  are  two  machine-dependent  coordinate  systems;  one  is 
defined  in  plotter  machine  units,  the  other  in  plotter  physical  inches.  These 
are  defined  by  PLOTS,  and  normally  user  will  select  the  default  parameters  for 
the  particular  plotter  selected.  Users  may  also  define  their  own  imaginary 
plotting  surface  in  which  the  relationship  of  the  origin  and  scale  relative  to 
the  plotter  coordinate  system  are  defined  by  PLOT  and  FACTOR.  Finally,  the 
relationship  between  "problem  units"  and  the  imaginary  "user  inches"  is 
defined  using  SCALE. 
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SUBROUTINE  DESCRIPTIONS 


PLOTS 


The  routine  PLOTS  must  be  called  at  the  start  of  a  user  program  to  initialize 
internal  parameters.  The  call  is: 

CALL  PLOTS  (A, I) 

A  Resolution  of  plotter:  inches/machine  unit  (0.0:  defaults  to  hardware 
resolution) . 

I  Logical  unit  for  plot  device  (0:  defaults  to  standard  device 
address) . 


PLOTS  initializes  the  scale  factor  to  1.0  (one  user  inch  equals  one  physical 
inch)  and  sets  the  "pen"  location  and  origin  to  (0.0,  0.0). 

NOTES: 

1) 

"PLOTS"  must  be  called  before  any  other  call  to  the  subroutine 
package. 

2) 

The  origin  is  initially  at  the  bottom  left  of  the  page.  (Top 
left  for  Printronix  300®  printer). 

3) 

The  X-axis  runs  horizontally  across  the  page.  The  Y-axis  runs 
vertically  up  the  page.  (X=down,  Y=across  for  Printronix  300® 
printer.) 

4) 

Pen  #  1  is  selected  for  the  HP-9872T®  plotter. 

PLOT 

The  routine  PLOT  causes  "pen"  motions  to  be  output.  PLOT  controls  the  origin 
and  pagination  of  the  plot.  The  call  is: 

CALL  PLOT  (X,  Y,  I) 

X  X-coordinate  (user  inches)  relative  to  most  recent  origin. 

Y  Y-coordinate  (user  inches)  relative  to  most  recent  origin. 

I  Integer  of  the  set  (-3,  -2,  3,  4,  10,  -10,  11,  999). 

-3  =  move  to  (X,Y)  pen  up,  set  new  origin  to  (X,Y). 

-2  =  move  to  (X,Y)  pen  down,  set  new  origin  to  (X,Y). 

2  =  move  to  (X,Y)  pen  down. 

3  *  move  to  (X,Y)  pen  up. 

10  =  advance  paper  one  full  page. 
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-10  =  advance  paper  one  half  page. 

11  =  End  of  plots;  reset  the  HP-2648A®  graphics  terminal  (first 
press).  This  frees  the  keyboard  and  clears  I/O  operations. 

999  =  same  as  11  (included  for  completeness  and  compatibleness). 

Note:  All  programs  should  be  ended  with  the  sequence: 

CALL  PLOT  (0. ,0. ,10) ;  CALL  PLOT  (0.,0.,-10);  or  CALL  PLOT  (0.,0.,11). 

FACTOR 


FACTOR  allows  the  alteration  of  the  overall  scaling  factor  for  plot  size.  The 
initial  factor  is  set  to  1.0  so  that  one  (1)  user  inch  equals  one  (1)  physical 
inch.  The  call  is: 

CALL  FACTOR  (Z) 

Z  Ratio  of  desired  plot  size  to  current  size. 

1.0  =  Reset  overall  scaling  factor  to  1.0. 

The  effects  of  multiple  calls  to  FACTOR  are  cumulative. 

WHERE 


WHERE  allows  the  user  program  to  interrogate  the  plot  package  for  the  current 
overall  scaling  factor  and  the  current  (X,Y)  location  with  respect  to  the 
current  origin.  The  call  is: 

CALL  WHERE  (X,Y,Z) 

X  X-coordinate  (user  inches)  with  respect  to  current  origin. 

Y  Y-coordinate  (user  inches)  with  respect  to  current  origin. 

Z  Current  overall  scaling  factor. 

NUMBE 


NUMBE  plots  floating  point  data  in  a  format  similar  to  FORTRAN  IV  F-format. 
One  number  is  plotted  for  each  call  to  NUMBE.  The  call  is: 

CALL  NUMBE  (X ,Y,H,T,A,N) 

X  X-coordinate  (user  inches)  of  number  relative  to  most  recent 
origi n. 

Y  Y-coordinate  (user  inches)  of  number  relative  to  most  recent 
origi n. 

H  Height  of  number  (user  inches). 
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T  Number  (floating  point). 

A  Angle  of  number  to  edge  of  paper  (degrees  CCW  from  X  axis). 

N  Format  control  integer: 

0  T  is  truncated  and  plotted  as  an  integer  followed  by 

-1  T  is  truncated  and  plotted  as  an  integer. 

+N  N  digits  to  the  right  of  the  decimal  point  are  plotted. 

SCALE 


SCALE  calculates  the  axis  limits  and  distance  between  tic  marks  for  an  array 
to  be  used  with  AXIS  and  LINE  to  produce  a  properly  annotated  axis  and  a  graph 
whose  data  include  all  points  in  a  user  specified  length.  SCALE  does  no 
plotting;  it  only  provides  data  for  AXIS  and  LINE.  The  call  is: 

CALL  SCALE  (A,S,N,I) 

A  Array  containing  data  problem  units  to  be  scaled.  (Where  the 
dimensions  are  A(l,  N+2)). 

S  Length  of  axis  that  data  is  to  cover  (user  inches);  number  of  tic 
marks  +1 . 

N  Number  of  data  values  in  array  A.  (N  must  be  greater  than  0) 

I  Increment  between  data  values  in  array  A.  (Used  to  allow  data  from 

2-dimensional  arrays,  A( I ,  N+2).) 

SCALE  searches  the  data  array  A  for  minimum  and  maximum  data  values  and 
selects  convenient  values  (problem  units)  for  tic  marks  on  the  axis.  Tic 
marks  are  set  one  inch  apart  (user  inches). 

The  calculated  value  (problem  units)  for  the  first  tic  mark  is  stored  at 
A(N*J+1).  The  increment  (problem  units/user  inch)  between  tic  marks  is  stored 
at  A(N*J+J+1),  where  J  is  the  absolute  value  of  I. 

Note:  If  I  is  not  equal  to  1,  a  format  incompatibility  with  AXIS  exists. 

AXIS 


AXIS  draws  an  axis  with  labeled  tic  marks  at  one  inch  intervals  (user  inches), 
with  an  optional  title  centered  on  the  axis.  The  call  is: 

CALL  AXIS  (X  ,Y  ,T ,N,S,A,F  ,0) 

X  X-coordinate  at  start  of  axis  (user  inches). 

Y  Y-coordinate  at  start  of  axis  (user  inches). 

T  Title  (packed  MSB,  LSB) . 
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N  Number  of  characters  in  title: 

-  on  clockwise  side  of  axis  (normal  for  X). 

+  on  counterclockwise  side  of  axis  (normal  for  Y). 

S  Length  of  axis  (user  inches). 

A  Angle  in  degrees  CCW  from  machine  X  at  which  axis  is  drawn: 

0.0  for  X  axis. 

90.0  for  Y  axi s. 

F  The  starting  value  of  first  tic  on  axis  (problem  units).* 

D  Increment  between  tic  marks  on  axis  (problem  units).* 

SYMBO 

The  SYMBO  routine  has  two  major  uses: 

1.  Print  a  character  string. 

2.  Print  a  single  character  by  value. 

The  cal  1  is: 

CALL  SYMBO  (X,Y,H,T,A,N) 

X  X-coordinate  (user  inches)  of  symbol  relative  to  most  recent 
origi n. 

Y  Y-coordi nate  (user  inches)  of  symbol  relative  to  most  recent 
origi n. 

H  Height  of  symbol  (user  inches). 

T  Text  string  (packed  MSB,  LSB)  or  value  of  single  symbol  (0.0  - 
127.0). 

A  Angle  of  string  or  symbol  CCW  from  machine  X  axis  (degrees). 

N  +  =  Number  of  characters  in  string. 

0  =  No  action. 

-1  =  Draw  symbol  corresponding  to  value  T  at  point  X,Y. 

-2  =  Draw  line  from  previous  X,Y  to  desired  X,Y,  then  draw  symbol. 

*F  and  D  are  usually  supplied  by  SCALE.  F  is  available  in  DATA(N+1). 

D  is  available  in  A  (N+2)  in  SCALE  argument  list. 


6 


LISTING  OF  A  COMMAND  FILL  FOR  AN 
OVERLAY  GENERATION  USING  THE  PLOT  PACKAGE 
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TAPLE  1:  SUMMARY  OF  SUBROUTINE  PACKAGES 


Procedure  to  measure  time  to  draw  and  label  axes.  Bits  zero  through  five 
of  the  ^-register  will  be  on.  Bits  three  through  five  will  be  turned  off  at 
the  start  of  the  axes  operation.  Bits  zero  through  two  will  be  the  only  bits 
on.  Start  timing  at  this  point.  Continue  timing  until  all  bits  except  zero 
through  five  are  on.  This  signals  the  completion  of  the  operation. 

Plot  package  efficiency.  The  efficiency  of  the  general  plot  subroutine 
package  was  measured  using  the  procedures  described  earlier.  A  digital  timer 
was  used  totime  the  plotting  of  data  and  the  drawing  and  labeling  of  axes. 

The  timing  was  also  measured  using  the  time  base  generator  that  is  installed 
on  the  Fourier  Analyzer.  The  total  plot  time  was  thirty-five  seconds  using 
the  terminal  as  the  plot  device  and  one  minute  and  twenty-eight  seconds  using 
the  HP-9872T®  plotter  as  the  plot  device.  The  time  required  to  draw  and  label 
axes  was  thirty-one  seconds  using  the  terminal  and  one  minute  and  eight 
seconds  using  the  plotter. 

The  total  plot  time  includes  scaling  the  data,  positioning  the  pen, 
plotting  the  data,  and  the  drawing  and  labeling  of  axes.  The  time  required  to 
plot  the  data  only  was  approximately  4.7  seconds  on  the  terminal  and  9.85 
seconds  on  the  plotter.  The  time  required  to  produce  a  hardcopy  of  the 
plotted  data  is  not  included  in  any  of  the  time  measurements. 


CONCLUSION 


The  plot  package  evaluation  program,  Y9000,  was  developed  in  the  Fourier 
Operating  System.  Although  relatively  small  in  size  (113  lines  of  coding), 
Y9000  required  2237  words  of  memory,  indicating  that  the  5451C®  utility  rou¬ 
tines  for  the  Fourier  system  require  a  considerable  amount  of  memory.  Due  to 
the  lack  of  sufficient  memory,  only  128  words  of  data  could  be  plotted.  The 
plotting  time  is  slow  relative  to  data  acquisition  and  sampling  rates. 

The  general  plot  package  presented  herein  is  a  valuable  programming  tool. 
Although  somewhat  limited  in  the  Fourier  Operating  System,  the  package  pro¬ 
vides  significant  programming  capabilities  in  the  RTE  operating  system.  As 
mentioned  earlier,  this  package  operates  in  both  systems.  The  general  plot 
package  performance  was  not  evaluated  in  the  RTE  Operating  System  because  our 
data  acquisition  plans  require  using  the  Fourier  Operating  System.  Neverthe¬ 
less,  the  programming  potential  of  the  general  plot  package  in  the  RTE 
Operating  System  are  excellent. 
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The  plot  package  evaluation  program  provides  a  means  of  determining  the 
performance  characteristics  of  the  general  plot  subroutine  package,  thereby 
facilitating  the  estimation  of  throughput  rates  and  response  times  for  the 
Fourier  system.  The  program  has  the  following  features: 

1.  A  standard  procedure  to  measure  time  to  draw  and  label  axes. 

2.  A  standard  procedure  to  measure  time  to  plot  data. 

3.  Capability  to  select  a  plot  device  interactively. 

4.  Validation  of  the  major  features  of  the  plot  package.  These  features 
include:  A  hardcopy  from  the  terminal,  pen  selection  on  the  HP-9872T®  plotter, 
pagination  on  the  plotter  (which  may  be  automatic  or  manual),  and  a  user- 
defined  scale  factor. 

FUNCTION: 

Y9000  begins  by  requesting  user  input.  The  user  must  input  the  logical 
unit  number  of  the  plot  device.  The  user  is  given  the  option  to  run  the  pro¬ 
gram  with  the  standard  values  or  with  changes.  The  user  may  change  the  pen 
number  and/or  page  size  on  the  HP-9872T®  plotter,  request  manual  paging  (if 
necessary)  on  the  plotter,  and/or  change  the  scale  factor. 

The  plot  package  is  initialized  and  the  5451C  utility  routines  are  used  to 
define  128  words  of  Fourier  data  and  to  store  the  data  in  X,Y  arrays.  The 
general  plot  subroutines  are  used  to  scale  and  plot  the  data,  and  to  draw  and 
label  the  axes.  Bits  zero  through  five  of  the  S-register  are  turned  on  (set 
to  1)  to  signal  the  start  of  the  plot  operation.  Some  of  these  bits  are 
turned  off  (set  to  0)  during  the  operation.  Bits  six  through  fifteen  on  (all 
bits  on  except  0  through  5)  signals  the  completion  of  an  operation.  Bits 
zero  through  one  of  the  S-reglster  are  turned  on  to  signal  the  start  of  the 
drawing  and  labeling  of  axes.  These  bits  are  turned  off  to  signal  the  com¬ 
pletion  of  the  operation.  However,  this  action  is  so  fast  that  the  end  of  the 
program  is  signaled  before  the  user  notices  it.  Therefore,  bits  six  through 
fifteen  on  signals  the  end  of  this  operation  also.  A  hardcopy  of  the  plotted 
data  is  produced. 

Procedure  to  measure  time  to  plot  data.  Plot  time  and  CPU  utilization  are 
the  same.  Bits  zero  through  five  of  the  S-register  will  be  turned  on  at  the 
start  of  the  plotting  operation.  Start  timing  at  this  point.  Some  of  the 
bits  will  be  turned  off  during  the  operation.  This  is  not  a  problem.  Continue 
timing  until  bits  six  through  fifteen  (all  bits  except  zero  through  five)  are 
on.  This  signals  the  completion  of  plotting. 
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EVALUATION  OF  THE  PLOT  PACKAGE 


A  plot  package  evaluation  program  (Y9000)  was  developed  in  order  to 
measure  plot  performance.  The  program  was  written  in  FORTRAN  and  was  executed 
under  the  following  machine  conditions: 

HP-5451C  Fourier  Analyzer®  settings: 


ADC  CONTROLS 

SAMPLE  MODE  TO  KHz/ms 
MULTIPLIER  to  TIME  100  (black  100) 
EXT/ 1  NT  to  IHT 

OVERLOAD  VOLTAGE  SWITCH  A  to  .8 
INPUT  SELECTOR  to  A 
DISPLAY  SELECTOR  to  A 
TRIGGER  SOURCE  to  FREE  RUN 
TRIGGER  LEVEL  to  SLOPE 


DISPLAY  UNIT  CONTROLS 


CRT  Portion: 

MAGNIFIER  to  XI 
DISPLAY  to  1NT 
INTENSITY  as  necessary 
FOCUS  and  SCALE  as  desired 

All  level  switches  to  center  except  DISPLAY  TYPE  to  CONT 
Control  Portion: 

GAIN  to  CAL 

MODE  to  REAL/MAGNITUDE 
POLAR  ANG/DIV  to  any  position 
SCALE  to  straight  up 

The  HP-3310A  Function  Generator  settings: 

FREQUENCY  DIAL  to  28 
RANGE  SWITCH  to  10 
DC  OFFSET  SWITCH  to  0 
FUNCTION  SWITCH  TO  TR1  (triangle) 

OUTPUT  LEVEL  set  with  arrow  pointing  towards  "+"  sign  by  DC  offset  switch 


where: 

OVSFSA  is  the  base  command  file  for  generating  overlays. 

OVCONA  is  the  nane  of  the  command  file  for  building  the  overlay. 

N  is  the  overlay  number. 

A  is  the  revision  (e.g.,  B  would  be  revision  2). 

N  is  the  overlay  number. 

1  indicates  send  the  test  output  to  the  printer  (use  0  for  output  to  the 
terminal). 

After  the  overlay  is  generated  and  stored,  the  program  is  ready  for  execu¬ 
tion.  In  order  to  execute  the  program,  the  user  will  have  to  boot  up  the 
Fourier  System  and  give  the  following  command  via  the  keyboard: 


USER 

PROG 


n 

n 

n 

ENTER 
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USING  THE  PLOT  PACKAGE 


All  of  the  plot  subroutines  and  the  utility  routines  have  been  merged  to 
create  two  complete  files.  The  file  &PLTPK  contains  the  source  code  and  the 
file  %PLTPK  contains  the  binary  code.  These  files  are  on  the  RTE  and  Fourier 
operating  systems.  Procedures  for  using  the  plot  package  on  both  systems  are 
given  below: 

The  program  execution  procedure  using  the  plot  package  on  the  RTE  operating 
system  is  as  follows: 

:L0ADR, ,%PR0GN 

SE,%SUBR1 
SE.^SUBRl 


(Produce  executable  code) 

(Includes  user  subroutines  if  required) 


SE,%SUBRN 
LIBRARY ,%PLTPK 
SL 
EN 

:PR0GN 


(Sets  up  %PLTPK  as  a  library  file) 

(Search  %PLTPK) 

(End  of  command  input  -  exit  command  mode 
and  finish  load) 

(Execute  program) 


Procedures  for  using  the  plot  package  on  the  Fourier  operating  system  are  as 
follows : 


Write  your  user  programs  in  FORTRAN  IV.  Your  program  must  have  a  name  in 
the  format  "Ynnnn" ,  where  "Y"  specifies  that  it  is  a  user  program  and  "nnnn" 
is  a  four-digit  positive  number  ( e.g . ,  1234),  excluding  numbers  of  resident 
user  programs.  For  FORTRAN  IV  programming,  all  the  interfacing  is  handled  by 
the  compiler.  Define  the  program  as  a  'SUBROUTINE"  and  use  "CALL"  statements 
to  use  the  utility  routines. 

Use  the  Overlay  Generation  procedure  in  Section  III  of  the  5451C  System 
Software  Manual®  to  generate  an  overlay.  The  Overlay  Generation  procedure 
requires  a  command  file  containing  a  list  of  the  user  programs  to  be  included 
in  the  overlay.  The  command  file  0VC05A  may  be  used  as  a  pattern  for  creating 
an  overlay  file  that  utilizes  the  plot  package.  A  listing  of  0VC05A  and  the 
output  from  an  Overlay  Generation  using  0VC05A  are  given  at  the  end  of  this 
section. 

Once  the  command  file  has  been  created  an  overlay  can  be  generated  by 
using  the  command: 

TR,  OVSFSA,  OVCONA,  N,  1  (return) 
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FP2AS 


The  routine  FP2AS  converts  a  floating  point  number  to  an  ASCII  character 
string.  The  call  is: 

CALL  FP2AS  (FP,  NASC,  ASC,  I) 

FP  Floating  point  value. 

NASC  Number  of  characters  to  be  returned  in  ASCII  string. 

ASC  Array  in  which  ASCII  character  string  is  returned. 

I  Number  of  characters  to  left  of  decimal  point  (output). 

PXPCO 


The  routine  PXPCO  stores  and  retrieves  the  current  value  of  variables  that  are 
common  to  several  programs.  The  call  is: 

CALL  PXPCO  (JST,  LU,  RE,  OX,  OY,  SF,  PX,  PY) 

JST  0:  Store  values. 

1:  Retrieve  values. 

LU  Logical  unit  for  plot  device. 

RE ( 2 )  X,Y  conversion  factors  to  go  from  machine  inches  to  machine  units. 

OX ,0Y  Plot  origin,  in  machine  inches. 

SF  Conversion  factor  to  go  from  user  inches  to  machine  inches. 

PX,PY  Current  pen  position. 

The  variables  LU, ,  RE,  OX,  OY,  SF,  PX,  and  PY  are  initialized  in  the  routine 
PLOTS.  The  only  variable  in  the  CALL  statement  that  requires  a  number  value 
is  JST.  If  the  user's  program  needs  the  variables,  a  call  to  PXPCO  with  JST 
equal  to  1  has  to  be  made.  Whenever  any  of  these  variables  are  modified,  a 
call  to  PXPCO  with  JST  equal  to  0  must  be  made  in  order  to  store  the  current 
values. 
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CALL  HPCSZ  (W,H) 

W  Width  of  characters  in  inches. 

H  Height  of  characters  in  inches. 
HPOUT 


The  routine  HPOUT  causes  plotter  instructions  to  be  output.  An  ASCII  charac¬ 
ter  string  is  created  using  one  character  per  call  and  the  string  is  output  to 
the  plotter  when  a  terminator  (;)  is  received.  The  call  is: 

CALL  HPOUT  (ICHAR) 

ICHAR  Character  to  output  to  plotter 
HP  PAG 


The  routine  HP PAG  controls  pagination  on  the  HP-9872T®  plotter.  Paper  may  be 
manually  placed  in  position  or  advanced  a  full  or  half  page.  The  call  is: 

CALL  HP  PAG  (ISW) 

ISW  1:  Full  page  advance. 

2:  Half  page  advance. 

3:  Manually  place  sheet  in  position. 

HPPEN 


The  routine  HPPEN  controls  pen  selection  on  the  HP-9872T  plotter.  It  provides 
the  means  to  select  a  pen  through  program  control.  The  call  is: 

CALL  HPPEN  (I) 

I  The  pen  position  number;  it  must  be  an  integer  in  the  range  0 
through  8. 

0  Directs  the  pen  arm  to  return  the  pen  it  is  currently  holding  to  its 
stall. 

1-8  Directs  the  pen  arm  to  fetch  the  desired  pen. 
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UTILITY  SUBROUTINES 


Several  utility  subroutines  are  used  in  the  general  plot  subroutine  package 
and  are  included  in  the  program  file.  Therefore,  a  brief  description  of  each 
is  given  in  this  section. 

PXPCG 

The  routine  PXPCG  extracts  a  specific  character  from  a  given  character  string 
(RHS  first,  LHS  second).  The  call  is: 

CALL  PXPCG  (10,  II,  12) 

10  ASCII  character  string. 

11  Number  of  the  character  to  be  extracted. 

12  Word  in  which  character  is  returned  (RHS). 

CGET 


The  routine  CGET  extracts  a  specific  character  from  a  given  character  string 
(LHS  first,  RHS  second).  The  call  is: 

CALL  CGET  (10,  11,  12) 

10  ASCII  character  string. 

11  Number  of  the  character  to  be  extracted. 

12  Word  in  which  character  is  returned  (RHS). 

HPCDR 

The  routine  HPCDR  specifies  the  absolute  direction  in  which  characters  are 
lettered.  HPCDR  calculates  run  and  rise  values  using  an  angle  supplied  and 
causes  the  character  direction  instruction  to  be  output.  The  call  is: 

CALL  HPCDR  (TH) 

TH  Angle  between  character  base  and  machine  X-axis  in  degrees. 

HPCSZ 

The  routine  HPCSZ  specifies  the  size  of  characters  and  symbols.  HPCSZ 
converts  inches  to  centimeters  and  causes  the  character  size  instruction  to  be 
output.  The  call  is: 
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Table  2  lists  the  available  symbols.  Symbols  0  to  31  are  centered.  Symbols 
32  to  127  have  their  lower  left  corner  at  coordinate  X,Y. 


LINE 

LINE  combines  pairs  of  data  points  in  two  arrays  according  to  user-specified 
parameters.  Points  can  be  plotted  with  a  special  symbol  (optional)  and  a  line 
between  points  (optional).  The  call  is: 

CALL  LINE  (A,B,N,I,L,J) 

A  Name  of  array  containing  values  for  abscissa  (problem  units) 

where:  A(I,N+2):  Array  dimension. 

I:  Number  of  variables  interlaced  in  array. 

N:  Number  of  points  to  be  plotted. 

A(1,N+1):  Minimum  value  on  axis  (problem  units,  normally  calculated 
by  subroutine  SCALE). 

A(1,N+1):  Problem  units/user  inch,  normally  calculated  by 
subroutine  SCALE. 

B  Name  of  array  containing  values  for  ordinate  (problem  units). 
(Definitions  are  the  same  as  A.) 

N  Number  of  points  in  each  array  to  be  plotted. 

I  Increment  between  points  in  array  to  be  plotted  (e.g.,  A( I ,N) ) . 

L  Format  control : 

+L  Points  connected  by  line  with  symbol  at  point. 

0  Points  connected  by  line  with  no  symbols. 

-L  Symbol  at  each  point  with  no  connecting  line. 

J  Value  of  special  symbol  to  be  plotted. 


OVC05A  T=00004  IS  OH  CR0O022  USING  00006  ELKS  R=0000 


0001 

0002 

A, OVRLYN 

0003 

T , SNR 5 1 C 

0004 

0005 

0006 

7001 

0007 

g, 800O 

0008 

C«E 

0009 

0010 

0011 

0012 

0013 

F,  V.Y70O1 

0014 

Y, Y7001 

0015 

F,  V.Y80OO 

0016 

Y  ,  Y  8  0  0  0 

0017 

F ,  5iDEM0  1 

0018 

Y, DEM01 

0019 

F,  P.DEM03 

0020 

Y,  DEM03 

0021 

F,  V.DEM04 

0022 

Y ,  DEM04 

0023 

F,  JjPLTPK 

0024 

Y,  PLOT 

0025 

F,*PLTPK 

0026 

Y,  PLOTS 

0027 

F,  %PLTPK 

0028 

Y, FACTO 

0029 

F,7.PLTPK 

0030 

Y,  WHERE 

0031 

F  ,  * ;  P  L  T  P  K 

0032 

Y, SYMBO 

0033 

F.V.PLTPK 

0034 

Y, NUMBE 

0035 

F.V.PLTRK 

0036 

Y, SCALE 

0037 

F ,  7.PLTPK 

0038 

Y, AXIS 

0039 

F ,  XPLTF'K 

0040 

Y, LINE 

004  1 

F,  ’iPLTPK 

004  2 

Y , PXFCG 

0043 

F,  J4PLTPK 

0044 

Y, CGET 

0045 

F,  P.PLTPK 

0046 

Y, HPCDR 

0047 

F.XPLTPK 

0048 

Y , HPCSZ 

0049 

F ,  V.PLTPK 

0050 

Y , HPOUT 

0051 

F ,  JjPLTPK 

0052 

Y , HPPAG 

0053 

F,5JPLTPK 

0054 

Y , HPPEN 

0055 

F ,  JjPLTPK 

0056 

Y , PXPCO 

0057 

F,  V.PLTPK 

0058 

Y ,  FP2AS 

0059 

0060 

0061 

F , N3500A 

0062 

L ,  ** 

0063 

F , N350 1  A 

'OVC05A'  54451-14805  REV.  ft  24  ftlJG  S3 
EftSE  COMMAND  FILE  FOR  USER  OVERLAY  GENERATION 
INSERT  Y  COMMAND  NUMBERS  BEFORE  C-E  .  AN  EXAMPLE: 
•  G« ,  e 0 r V  ,  WHERE  '  007?  '  =4-D  I  G I  T  Y  COMMAND  NUMBER 


CSORT+ 

INSERT  PROGRAM  LOADS 
EXAMPLE:  'F, Y77J0B 

"Y,  YO077' 


BETWEEN  CSORT  +  '  AND  -CSORT- 
,  WHERE  ' Y 7 7 J 0 E  =  FILE  NAME 
,  WHERE  ' Y O077  =  PROG  NAME 


CSORT- 
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END  OF 

UPDAT- 

7K62 

006642 

V  7001 

V.Y7661 

Y 

6 

066056 

HPF'EN 

JjPLTPK 

Y 

0 

00665? 

WHERE 

JjPLTPK 

Y 

0 

000674 

PXPCG 

JjPLTPK 

Y 

0 

006074 

CGET 

JjPLTPK 

Y 

0 

066111 

FACTO 

V.PLTPK 

Y 

6 

006163 

HPCSZ 

Jjfltpk 

Y 

0 

000170 

HPCDR 

V.PLTPK 

Y 

0 

006201 

HPPflG 

JjPLTPK 

Y 

0 

006256 

PXPCO 

v.pltpk 

Y 

6 

000273 

LINE 

JjPLTPK 

Y 

0 

000313 

HPOUT 

V.PLTPK 

Y 

0 

000316 

DEM03 

JJDEM03 

Y 

0 

000327 

DEM01 

JJBEM0 1 

Y 

0 

006336 

Y8006 

JJY8000 

Y 

0 

000336 

PLOTS 

JjPLTPK 

Y 

0 

000370 

FP2AS 

V.PLTPK 

Y 

0 

00037? 

NUMBE 

V.PLTPK 

Y 

0 

000475 

SCFILE 

JjPLTPK 

Y 

0 

00061? 

PLOT 

JJPLTPK 

Y 

0 

006646 

DEM64 

V.DEM64 

Y 

6 

001265 

FIX  IS 

JJPLTPK 

Y 

0 

002612 

SYMBO 

JjPLTPK 

Y 

6 

FlBDRESS 

PGMNAM 

LIBNAM 

CONTROL 

LENGTH 

56442 

Fix  is 

JJPLTPK 

Y 

01265 

5  7  7  2  7 

Y  7  6  6  1 

JJY7001 

Y 

00042 

57771 

HPF'EN 

V.PLTPK 

Y 

00056 

60647 

SYMBO 

V.PLTPK 

Y 

02012 

62061 

BEM04 

JJDEM04 

Y 

00640 

62721 

PLOT 

JJPLTPK. 

Y 

0061? 

63546 

HPPflG 

V.PLTPK 

Y 

00261 

63741 

WHERE 

JjPLTPK 

Y 

00057 

64026 

SCALE 

V.PLTPK 

Y 

00475 

64515 

NUMBE 

V.PLTPK 

Y 

00377 

65114 

FF'2AS 

JjPLTPK 

Y 

00376 

65504 

LINE 

V.PLTPK 

Y 

00273 

65777 

PLOTS 

JJPLTPK 

Y 

00336 

66335 

Y8060 

JJY806G 

Y 

00336 

66673 

DEM61 

V.DEM01 

Y 

00327 

67222 

DEM03 

JJDEM03 

Y 

00316 

67540 

HPCDR 

JJPLTPK 

Y 

00170 

67730 

PXPCG 

V.PLTPK 

Y 

00074 

70024 

HPOUT 

V.PLTPK 

Y 

00313 

70337 

PXPCO 

JJPLTPK 

Y 

00256 

70615 

HPCSZ 

V.PLTPK 

Y 

00163 

71000 

FACTO 

V.PLTPK 

Y 

0011  1 

71111 

71205 

CGET 

JJPLTPK 

Y 

00674 

************ 

* 

*  F ,  *;PLTPF 

*  Y.SYMBO 


SYMEO  60047  62060  01021  01061 


♦  LOflDC* 

************ 

* 

*  F ,  V.DEM04 

*  Y , DEM04 
************ 

DEM04  62061  62720  01O16  01020 


♦  LOflDC* 

************ 

* 

*  F ,  V.PLTPK 

*  Y ,  F'LOT 


PLOT  62721  63537  01014  01015 


*LOPDC« 

************ 

* 

*  F.V.PLTPK 

*  Y ,  HPPFlG 
************ 

HPPFlG  63540  63740 


♦  LOfiDC" 

************ 

* 

*  F,y.P LTPK 

*  Y, WHERE 
************ 

WHERE  63741  64017  01013  01013 


*LOflD@ 

************ 

* 

*  F ,  JjPLTPK 

*  Y , SCHLE 
************ 

SCALE  64020  64514  01010  01012 


♦LOADO 
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SANTA  CLARA  DIVISION  AUTO  OVRLAY  GENERAT I 0N-6K 1 5 


************ 

*  A ,  OVR'LYN  'OVC05A  54451-14805  REV.  A  24  AUG  83 

*  T.SNP51C  BASE  COMMAND  FILE  FOR  USER  OVERLAY  GENERATION 

************ 


♦  ENTER  USERCOMMAND  NUMBERS,  OR  TYPE 
************ 


*  INSERT  Y  COMMAND  NUMBERS  BEFORE  '0E'.  AN  EXAMPLE: 

*  '@,0077'  ,  WHERE  ' 0077' *4-DI GIT  Y  COMMAND  NUMBER 

*  0,7001 

Y7001 

Y7.COM  01075  01075  00434  00435 

*  0,8000 

Y8000 

Y?:COM  01074  01074  0O4  36  00437 

*  0E 

YV.COM  00440  00441 

47440  47440 


TYPE  "L"  TO  LOAD  USERCOMMAND  LIBRARY 

*  CSORT+ 


* 

INSERT  PROGRAM 

LOADS 

BETWEEN  ' 

C  S  0  P  T  + 

AND  '  C  S 0 R T -  ■' 

* 

EXAMPLE:  'F, 

Y77 JOB • 

•'  ,  WHERE 

•Y77J0B 

'  =  FILE  NAME 

* 

1  i 

Y0O77  ' 

,  WHERE 

' V  0077 

=  PROG  NAME 

*  F ,  JsPLTPK 

*  Y.AXIS 
************ 


AXIS  56442  57726  01066  01073 


♦LOAD0 


************ 

* 

*  F  ,  V.Y700  1 

♦  Y.Y7001 
************ 

Y7001  57727  57770  01063  01065 


♦LOAD® 

************ 

* 

♦  F.V.PLTPK 

♦  Y.HPPEN 
************ 

HPPEN  57771  60046  01062  01062 


♦LOAD® 
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*  F ,  JjPLTPK 

*  Y.NUMBE 
************ 

NUME'E  64515  65113  01606  61667 


*LOflDC« 

************ 

* 

*  F.JiPLTPK 

*  Y ,  FP2RS 
************ 

FP2RS  65114  65563 


♦LORD® 

************ 

* 

*  F ,  SiPLTPK 

*  Y, LINE 
************ 

LINE  65564  65776 


♦  LOftlM? 

************ 

* 

*  F,  V.PLTPK 

*  Y, PLOTS 
************ 

PLOTS  65777  66334 


♦LORD® 

************ 

* 

*  F^/.Yseeo 

*  Y.Y8000 
************ 

Y8060  66335  66672  01062  61065 


*LORB@ 

************ 

* 

*  F.V.DEM01 

*  Y , DEM6 1 
************ 

DEM01  66673  67221  61601  01061 


♦LORD® 


*  F.V.DEM03 

*  V , DEM03 
************ 

DEM03  67222  67537 


♦LORD® 

************ 

* 

*  F,  V.PLTPK 

*  Y.HPCDR 
************ 

HPCDR  67540  67727  00777  010OO 


♦LOAD® 

************ 

* 

*  F,  V.PLTPK 

*  Y , PXPCG 
************ 

PXPCG  67730  70023  00767  00776 


♦LOAD® 

************ 

* 

*  F,  V.PLTPK 

*  Y, HPOUT 
************ 

HPOUT  70024  70336 


♦LOAD® 

************ 

* 

*  F,5{PLTPK 

*  Y.PXPCO 
************ 

PXPCO  70337  70614 


*LOAD@ 

************ 

* 

*  F,  V.PLTPK 

*  Y, HPCS2 
************ 

HPCS2  70615  70777 


♦LOAD® 


♦  F,*;PLTP> 

*  Y, FACTO 


FACTO  71000  71110 


*LGAB<? 


* 

★  F,  V.PLTF'K 

*  Y.CGET 
************ 

CGET  71111  71204 


♦  LOADC" 


CSQPT- 


*  F ,  H  3  5  O  0  A 

*  L ,  ** 


FPMTF:  71205  75017  00540  00706 

HOD  75020  75037 

MX MM  I  75040  75153 

MXMNR 


*LX7 


MI  Ml 

75154  75261 
DELE  75262  75313 

SMGL  75314  75356 

.  XF'AK  75357  75544 

. XCOM  75545  75612 

. XFEP  75613  75650 

ALOGT  75651  75657 


♦LOAD® 


*  F.N3501A 

*  L,  ** 


ATAM  75660  760O6 
AES  76007  76013 
. ITOI  76014  76126 
.GOTO  76127  76150 
I  AES  76151  76157 


COMPUTED  G 


♦LOAD® 


************ 

*  F , A3060E 

*  L,** 

************ 


0  T  0 
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D .  05 

00062 

00062 

II  II  II 

76160 

76162 

D.  06 

00060 

00060 

ii  li  ll 

76163 

76165 

D.  33 

00063 

00063 

ll  II  II 

76 166 

76170 

D .  35 

0006 1 

00061 

ll  ll  H 

76171 

76173 

D .  76 

00055 

00055 

ll  ll  ll 

76174 

76176 

1.05 

00046 

00046 

H  II  ll 

76177 

76200 

C.33 

00045 

00045 

■l  II  ll 

76201 

76202 

♦  LOfiDi? 

************ 
*  U ,  *  * 

************ 


♦UNDEFINED  SYMBOLS 
BLANK  DT AD  GKPLT 

♦AVAILABLE  MEMORY 
76203  76224 
00442  00545 


♦LOAD0 

***  ***•*•**•**  * 
♦  E ,  0  1 

***♦♦**•**•**♦ 


♦USER  LINKS 
76225  762 33 
00546  01777 


♦OVERLAY  SYMBOL  TABLE 


.BIO. 

74434 

.  DFER 

75613 

.DIO. 

74353 

01065, I 

.  DTA . 

74502 

01063, I 

.  GOTO 

76127 

01015, 

I 

.  I  A  R . 

74300 

.  I  AY . 

74245 

.  1 10. 

74020 

01064, 

I 

.  I  0 1 . 

74153 

.  I  OR . 

74112 

.  ITOI 

76014 

01024, 

I 

.  LDR. 

75601 

.  LST . 

70101 

.RAP. 

74256 

.  RAY. 

74234 

.RIO. 

74032 

.  X  A  Y  . 

74203 

.  XCOM 

75545 

00640, I 

.  XFER 

75622 

00642, I 

.  X I  0  . 

74047 

.  XPAK 

75357 

00610, 1 

ABS 

76007 

01007, I 

ALOGT 

75651 

01010, 

I 

A  M  A  X  0 

75040 

AMAX  1 

75154 

01012, I 

AMINO 

75052 

AM  I  N  1 

75166 

01011,1 

ARCTA 

75660 

ATAN 

75660 

01001 , 

I 

AXIS 

56456 

01016,1 

BCS 

70526 

BLANK 

?  ?  ? 

01233, 

I 

C.33 

76201 

00045, I 

CGET 

71114 

01047, I 

D.  05 

76160 

00062, 

I 

D .  06 

76163 

00060, I 

D.  33 

76  166 

00063 , I 

D.35 

76171 

00061 , 

I 

D.  76 

76174 

00055 , I 

DBLE 

75262 

00574, I 

DEMO  1 

66705 

01005, 

I 

DEM03 

67346 

01003, I 

DEM04 

62401 

01002, I 

DTAD 

?  ?  ? 

01573, 

I 

FACTO 

71005 

FP2AS 

65132 

01000, I 

GKPLT 

01234, 

I 

HFCDR 

67553 

0 1 060 , I 

HPCSZ 

70631 

01061, I 

HPOUT 

70175 

01027, 

I 

HPFAG 

63545 

01014,1 

HPPEN 

57776 

01004, I 

1.05 

76177 

00O46, 

I 

I  ABS 

76151 

01072, 1 

LINE 

65512 

01017,1 

MAX0 

75045 

MAXI 

75161 

MIN0 

75057 

00777, I 

MOD 

75022 

01037, 

I 

NEW  10 

74452 

NUMBE 

64523 

01067, I 

OLDIO 

74457 

PLOT 

62742 

01070, I 

PLOTS 

6601  1 

PXPCG 

6  {  i  3  3 

01040, 

I 

PXPCO 

70365 

01073, I 

SCALE  64036  ©1620,1 
1HERE  6375©  ©1006,1 


SYMBCl  61121  ©1066,1 
YS06©  66341  01674,1 


SH6L  75314  ©6573,1 
Y70O1  57731  61075,1 

*LJNKS 

00546  61777 

* AVAILABLE  MEMORY 
76203  76224 
00442  00545 

♦  END 

♦LOAD© 

*********** 

•  • 

•  ■ 

t "  ENCOUNTERED,  OVERLAY  GENERATION  TERMINATED 
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LISTINGS 


THE  GENERAL  PLOT  PACKAGE  SUBROUTINES 
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GE  1  FTN, 


OPTS:  l:  :  I 


’£•.25  PH  WED..  26  DEC..  1984 


SUE POUT  I  HE  PLOTS  CPS,  I  A) 


PESOLUT 1  ON 

0.0- >0.01  (.DEFAULT) 

LOGICAL  UNIT  FOR  OUTPUT 
O - > 1 U :  TEKTRONIX  DISPLAY  ( DEFAULT 


1:  HP-2648A  GRAPHIC 
5:  HP-9872T  PLOTTER 
10:  HP-9872T  PLOTTER 


;  TERMINAL 
(RTE  SYSTEM) 
(FOURIER  SYSTEM: 


REV  08  FEE  Be 
REV  22  JUN  S: 


REV  SI  SEP  S3 


CHANGE  FILE  NAME  TO  "PLOTS 
SUPPORT  HP-9872T  PLOTTER 

INITIALIZE  PLOTTER  L  ENABLE  PAPER  CUTTEF 
SELECT  PEN  #1 

SUPPORT  HP-2648A  GRAPHICS  TERMINAL 
MODIFIED  TO  RUN  ON  FOURIER  SYSTEM 
COMMON  STATEMENT  REMOVED 
A  CALL  TO  SUBROUTINE  'PXPCO  HAS  ADDED 


LU  LOGICAL  UNIT  FOR  PLOT  OUTPUT 

MR  INDEX  TO  LAST  USED  WORD  IN  ME  BUFFER 

ME  BUFFER  FOR  OUTPUT  TO  PLOT  DEVICE'  NOT  REC'D  F OF  AlL  DEVICES 

R E  1  2  >  :  V. ,  Y  C  0 1 1 V E  R S  ION  FACT  0 R S  T  0  G 0  FROM  MACHINE  I  NC  HE  S  T  0 

MACHINE  UNITS 

OX , OY :  PLOT  ORIGIN,  IN  MACHINE  INCHES 

SF:  CONVERSION  FACTOR  TO  GO  FROM  USER  INCHES  TO  MACHINE  INC  HE 

PEAL  ARC  2  > , RE ( 2  > 

DATA  A R • '  1 .0,1.0 

DATA  IESTR/015452B.'.LDLfi  082141B  , ICK  Q41513E 
DATA  IESLH/015S50B  ",  I  ESC J  "0 1 55 1 2E 

INITIALIZE  PLOT  ORIGIN  IN  MACHINE  INCHES 
0  X  =  O  .  0 
0  Y  =  O  .  O 

INITIALIZE  PEN  POSITION  IN  USER  UNITS 
PX=0. 0 
RY=0. 0 

INITIALIZE  SCALE  FACTOR  TO  1.0 
SF*1 . 0 

DEFINE  OUTPUT  LOGICAL  UNIT 
LU=  I  A 

I F ( LU . EQ . 0 )  L  U  = 1 O 


DEFINE  FACTOR  FOR  CONVERSION  FROM  MACHINE  INCHES  TO  MACHINE  UNIT:; 
R  T  =  R  S 

I F ( ( RT . LE . 0. 0  1  .AND.  (LU. EQ. 1 )  <  RT=.0228 
I F ( ( LU . NE . 5 )  .AND.  (LU.NE.30)>  GO  TO  100 
IFFRT.LE. 0.0)  R  T  =  1 . / 4  0  O . / 2 . 54 
IFcRT.LE.0.0  ■  R T  =  . O 1 
RE ( 1 >«RT*AR( 1 > 
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C.J  CO  rt  JO  «.jj  00  Ch  C&  iM  CO  ’t  U"‘  'll'  P-  CO  *?•  •»-* 


E  1  PLOT-;.  OPTS:  LXI  3:25  PM  W ED.,  20  DEC..  1984 


7  R  E  i  2  >  —  R  T  *  fi  P  (  2  1 

e  c 

9  C  STORE  V fi L U E S' 

0  150  CALL  F'  X  F'CCkO,  L  U  ,  PE,  0  X ,  0  V ,  S  F  ,  P  X ,  P  V  > 

1  C 

IFCLU.EQ.l)  GO  TO  230 

C  ADVANCE  PAPER  AND  INITIALIZE  PLOTTER 

WRITEtLU, 200 > 

20O  FORMAT < MAFs IN" > 

C 

C  SELECT  PEN  #1 

WRITE (LU, 220 > 

220  FORMAT  ("  SF'  1  "  > 

GO  TO  250 
C 

C  CLEAR  SCREEN  (ALPHANUMERIC  DISPLAY) 

230  CONTINUE 

WRITE(LU, 240)  IESLH, IESCJ 
C 

C  CLEAR  GRAPHIC  MEMORY  AND  TURN  ON  GRAPHIC  DISPLAY  &  CURSOR 

WRITE ( L U , 240  >  IESTR, LDLA, 1CK 
240  FORMAT (4R2> 

C 

250  RETURN 

END 


14  X  COMPILER:  HP92834  REV.  2226  (826503 -• 


NO  WARNINGS  *-  NO  ERRORS  **  PROGRAM:  206  COMMON:  '-NONE 
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00  -si  <T  . 


SYMEO  OPTS:  LX  I 


3:27  PM  U ED., 


DEC . ,  1934 


£  1  0 


C 


CALL  HPOUT < 1  HE  > 

CALL  HPOUT  (.  I  A  N  B  •  J  C  H  ,  3 7  7  E  >  *2**8  > 
IFCLU. HE. 30 >  GO  TO  215 
CALL  HPOUT  U  771  :■ 

CALL  HPOUT < 3*256 > 

CALL  HPOUT  UH;> 

X=X+W1*C0 
Y  =  V  +  W  1  *  S  I 
CALL  P  L  0  T  <  X  ,  Y  ,  3  > 

GO  TO  40 

END 


4X  COMPILER:  HP92834  REV. 2226  <820503) 


N  Li  H  A  R  N  I  N  L  "*■  ^  M  ij  E  F'  F  Ci  F'  ~  **■  p  F'  ij  L  F  H  M  :  1  o  o  0 


COMMON:  L NONE  1 
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E 


ivr-i  E  0 


L : :  I 


P  M  WEI' 


I'EC  . 


OF- TS : 


if 


F'ETUPN 


5  4 

c 

initialize  to  strpt 

55 

30 

1 _ 1 

II 

*Zj 

rr 

36 

10  =  0 

:■  p 

C 

33 

C 

GET  NEXT  CHRFRCTEF  IN  S 

39 

4  0 

NC0=NCO- 1 

40 

I F  <  N C 0 . L T . 0  >  GO  TO  20 

41 

10=1  +  10 

4  2 

CRLL  CGETCRSC,  10,  JCH> 

4  3 

50 

I F  <  LU . NE . 1 >  GO  TO  55 

44 

I  CH= I  AND (  JCH , 177B) 

45 

I3=SYM< JCH+1 > 

46 

I F C J C H . G E • 3 2 >  GO  TO  6 U 

47 

GO  TO  56 

4  8 

55 

JCH* I  AND <  JCH,  1771:  > 

49 

I F  <  JCH . GE . 32  >  GO  TO  200 

50 

56 

CONTINUE 

51 

c 

52  C  SPECIAL  PLOT  CHARACTER  MUST  BE  CENTERED,  MOVE 

53  I3=SYM< JCH+1 > 

54  I  F'  =  3 

55  11=0 

56  X=X+H*  0  2 .  *C0  +  3 .  *31  > 

5 7  Y  =  V  +  H *  O 3  •  * C  0 - 2 .  *SI  '■> 


!5S 

XW  =  X 

;59 

Y  W  =  Y 

(60 

GO  TO  110 

561 

60 

I  P  =  2 

562 

13=1+13 

563 

C 

564 

c 

GET  8  BIT  DEFINITION  OF  NE 

565 

CALL  P X PC G  ( STB,  13,  I 1 ) 

566 

c 

567 

c 

DECODE  SEGMENT  DEFINITION 

568 

12  =  M  0  D  (11,  64.' 

569 

I  F  •:  I1.GE.64>  IF'  =  3 

570 

I Y  =12  3 

57  1 

IX* I 2-8* IV 

572 

X  1  =  I  X 

^  r  3 

Y  1  =  I  Y 

574 

c 

375 

c 

DRAW  SEGMENT 

576 

XW  =  X  +  H*(X1*C0-Y1*SI  :> 

577 

Y  W  =  Y  +  H  *  (  Y  1  *  C  0  +  X  1  *  S  I  > 

378 

110 

CRLL  PLOT  <XW,  YW,  I P > 

579 

I F  <  I  1  . L T . 192 >  GO  TO  60 

380 

X  =  X  M 

381 

Y  =  YW 

382 

GO  TO  40 

383 

c 

384 

c 

WRITE  A  NORMAL  CHARACTER 

385 

c 

386 

200 

CRLL  HF'OUT  t  1  HL  "> 

CHAP:  AC  TER 


SEGMENT 


PEN 
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LX  I 


PM  WED. 


DEC  . 


1  9  8  4 


iGE  6  SYMEO  OPTS: 


,  26 


279 

286 

281 

282 

283 

284 

285 
288 

287 

288 

289 

290 

291 

292 

293 

294 

295 
298 

297  C 

298 

299 

300 

301 

302 

303 

304  C 

305 

306  C 

307 

308  C 

309  C 

310  C 

311 

312 
3  1  3 

314 

315  C 

316  C 

317  C 

318 

319  C 

320  4 

321  C 

322  C 

323 

324 

325 

326 

327  C 

328  C 

329  10 

330 

331 


In=tTR  STC337  -  13171,  12486,  2156,  1  1  14 

1,  16838,  16899,  12594,  8390/ 

DATA  S T C 3 4 5 8536,  538,  9050,  1052 

1,  8390,  8536,  7203,-14844/ 

DATA  STC353 /  6216,  8993,  3100,  259 

1,-14840,  24624,  13106,  7212/ 

DATA  STC'361  /  4627,-14816,  13380,  12900 

1,  10289,  4376,  9234,  8390/ 

DATA  STC369/  8784,-14812,  3075,  4371 

1,  8472,-14812,  9057,  2674/ 

DATA  STC377/-14845,  2144,  769,  25612 

1,-14844,  608,-14812,  352/ 

DATA  STC385/  766,-14812,  24612,-14844 

1,  833,  13324,  6256,  5137/ 

DATA  STC393  '  24774,  36,-14844,  2370 

1,  6161,  10529,-15054,  4674/ 

DATA  STC401 /  12898,  16838,  4618,  8731 

1,  12586,  20677,  6937,-14812 

DATA  S T C 4 0 9 /  13360,  4,  28724,-14844 

1  ,  0 ,  0  ,  0  ,  0  / 

MID  POINT  X,  Y  COORD  t.  ROTATION  CONSTANTS 
X  =  XA 
Y  =  Y  A 

H=TH*0. 0174532925 
S I  =  S I N  <  H  > 

CO=CO$CH> 

H=HI/7.0 


CALL  PXPCO a , LU , RE , OX , 0 Y , SF , PX , PY > 
I F ( LU . EQ . 1 >  GO  TO  4 


SET  CHARACTER  SIZE 


HQ=HI*SF 
W  0  =  H  0  *  2  .  /  3 . 

W1=W0*1 . 3333  SF 
CALL  HPCS2  C W0 ,  HO  > 

SET  DIRECTION  IN  WHICH  CHARACTERS  ARE  TO  EE  LETTERED 


CALL  HPCDR ( TH  > 

CONTINUE 

MOVE  TO  NEW  POINT 
I  P  =  3 

IFCNC.EQ.-2)  I P=2 
CALL  PLOT  CXA, YA, IP) 

IFCNC >10,20, 30 

SINGLE  CHAR  IS  TO  EE  PLOTTED 
NC0  =  0 

JCH= ASC  < 1 ) +0 .  1 
GO  TO  50 
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SYMEO  OPTS:  LYI 


3:2?  PM  WEB. 


1,-14804,  83  3,  12888,-14  8  07- 

BATA  STC121  12848,  11315,  2048, 

1,  28870,  11318,  8338,  3092 

BATA  8 T C  129  259,-14840,  13123, 


2  2  6 

1  <  "  1  4  O  i  V  )|  C*  *2'  «  2>  0  7  5 

,  8988 

2  2  i 

BATA  ETC1  37.-  12320,-14796,  7000, 

3092 

228 

1,  259,  8200,  13362 

,  28870 

2  2  9 

BATA  ETC  145  11318, 

273,  16838, 

3075 

230 

1,  6932,  8217,  12584 

,  11315 

231 

BATA  £  T  C  1 5  3  6948, 

4185,  264. 

710 

232 

1,  11284,  12595,  8232 

,  7193' 

233 

DATA  E  T  C  1 6 1  16838,  2 

0  i  3  i  ,  —  14831  , 

2625 

234 

1,  25106,-14814,  6211 

,  -  1479? 

2  35 

DATA  ETC  189  5200, 

8  2  9 1 ,  16&3o, 

12572 

238 

1,  17094,  20994,  11300 

,  12595 

237 

BATA  £•  T  C  1  7  7  -14808, 

328,  10248, 

13105 

238 

1,  5164,  6674,-14804 

,  12832 

239 

BATA  E  T  C  1 8  5  106 0 , 

5200,  12486, 

11315 

240 

1,  6948,  23320,  3092 

*  ' 

241 

BATA  ETC  193  27846 ,  1 

2595,  2088, 

769 

1,-14838,  3075,  13100,  28978 

BATA  ETC  20 1  -  -  1 4847 .  1  3380,  8235,  1088 

1,  12488,  23092, -14824,  13184 

DATA  ETC  209  10289,  284,  5124.-14829 

1  ,  2  2  5  i'  8  ,  2  3  i  2  4  ,  —  1  4  8  4  4  ,  8  -■  3 

B  A T  A  E  T  C  2 1 7  1 2  8  8  8 ,  1  3189,  1 8  8  3  0 «  78  9 

1 ,  13324,  12488,  8  2  8  0 , - 1 4  8  4  4 

BhTA  ETC  225  1 8432 , - 1 4844 ,  8704.  1C78 

1,  12488,  3178,  1  140,  18830 

BATh  ETC  23  3  789,  1  1278,  12595.  2088 

1,  12488,  11315,  8948,-14824 

BATA  8 T C 2 4  1  •  328,  3075,  1  3100,  10289 

1,  21000,-14844,  13104,  9280 

BATA  STC249  8171,  1114,  18830,  789 

1,  5132,  8427,  10272,  13105- 

BATA  ETC  257.  -  1 4804 ,  13424,  828,  28870 

1  ,  284,  3075 , -14798,  824 

BATA  ETC  285  -14798,  388,  794,-14798 

1,  11272,  28724,  3112,-14844 

BATA  ETC  27 3  10352,  538,  1 1 380, -1 4822 

1,  13424,  2092,  1024,  29382 

BATA  ETC  281  48,-15358,  12  358,  710 

1 ,  1 2  3  3  8 ,  22  724,  7210,  2888' 

BATA  S  T  C  2  8  9  -  '  19142,  10778,  7258,  28870 

1,-14821,  8  218,  8  7  3 1  ,  532/ 

BATA  ETC  297  -  2049,  1  124,  12488,  8784 

1,  7203,  780,  4098,  25798/ 

BATA  ETC  305  8177,  264,-14844,  1  140 

1,  8788,  8177,  284,  5122'/ 

BATA  E  T  C  3 1 3  20878,  7188,  8483,  2072 

1,  789,  17094,  13098,  7001/ 

BATA  ETC  32  1  18838,  3075,  25852.  12594 

1.  8184,  4625,-14812,  24624/ 

BATA  S  .  T  C  3  2  9  7  2  0  3  ,  -  1  4  8  4  4  ,  8  3. 3  ,  6722 

1,  27161 , -14808,  577,  8971/ 
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PhGE  4 


DfiTfi  SYH  25 
1,  125, 

DfiTfi  SYH  33 
1,  150, 


1,  332, 

DfiTfi  SYH  t‘ 
1,  3S4 , 

DfiTfi  SYH  7; 
1,  448, 


IifiTf)  SYH  89- 


S: 

LX  I 

O  2  si  i 

125, 

125 

125, 

125, 

125, 

125/ 

!  /' 

125, 

126 

,  136, 

161  , 

174, 

186/ 

/ 

190, 

195 

,  200 

*15, 

218, 

221/ 

i/ 

223, 

234 

,  *40 

266, 

276, 

287/ 

V 

293, 

311 

,  O  c  1 

336 , 

341 , 

345/ 

I  / 

354, 

366 

,  373 

402, 

409, 

414/ 

)/ 

424, 

4  30 

,  437 

452, 

457, 

463/ 

1/ 

473, 

480 

,  492 
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528,  530/ 

36,  544,  552, 

571 ,  577/ 


185 

DfiTfi  SYH  97/ 

O  9 

586, 

597 

186 

1  ,  614,  625 , 

635, 

641 

/ 

187 

DfiTfi  SYH 105/ 

654, 

6  6  0 , 

660 

188 

1,  681,  687, 

697, 

704 

189 

DfiTfi  SYH  113/ 

?84, 

*7  cr 

190 

1,  748,  754, 

762, 

766 

/ 

191 

DfiTfi  SYH 121 / 

772, 

776, 

785 

192 

1,  798,  803, 

811, 

816 

IifiTfi  STC  1/  10842,  2088,  1  1276,  -9686 

1,  10842,  8233,  2320,  5131/ 

DfiTfi  STC  9 /  11044,  -9686,  10842,  3080 

1,  -9686,  2666,  7256,  18650 

DfiTfi  STC  17/  26668,  -9716,  10842,  2584 

1,  10780,  23258,  10776,  6684/ 

DfiTfi  STC  25/  -9718,  11336,  3112,  26842 

1,  2092,  22796,  -9701,  10330' 

DfiTfi  STC  33/  6764,  -9718,  11354,  8547 

1,  24872,  2065,  4945,  21260 

DfiTfi  STC  41/  -9693,  11336,  3176,  10826 

1,  7256,  23258,  11304,  3080 

DfiTfi  STC  49-  -9702,  10826,  22746,  -9700 

1,  7256,  11368,  3144,  24794/ 

DfiTft  STC  57/  20516,  18708,  -9685,  10842 

1,  9057,  4945,-14630,  577/ 

DfiTfi  STC  65/  2314,  20993,  12849,-14830 

1,  12641,  9075,  16838,  29489/ 

DfiTfi  STC  73/  24579,  21540,-14832,  2888 

1,  6932,  8217,  11305,  626/ 

DfiTfi  STC  81/  18630,  26924,  12328,  10545 
1,  836,  3083,-14844,  596/ 

DfiTft  STC  89/  2049,  8976,  12843,  6441 

1,-14844,  10849,-14798,  8563-' 

DfiTfi  STC  97/  785,  29126,  4899,-14847 

1,  10826,  4196,  5216,  19142/ 

DfiTfi  S T C 1 0 5 /  22570,-14820,  4631,  22726 

1,-14820,  321,  13510,  18630/ 

DfiTfi  STC113/  12584,  11315,  780,  2049 
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AGE 

3 

SYMBO  OPTS 

:  LX  I 

3:  27 

112 

EQUIVALENCE 

( S T E  (  25 > , 

STC  25(1)) 

113 

EQUIVALENCE 

(  S  T  £  (  3  3  ) , 

STC  33(1)) 

114 

EQUIVALENCE 

(STB  (  41), 

STC:  41(1)) 

115 

EQUIVALENCE 

(STB(  49), 

STC  49(1)) 

ue 

EQUIVALENCE 

<STB<  5 7  > , 

STC  57(1)) 

1  17 

EQUIVALENCE 

(  STD  (  65::', 

STC  65 ( 1  )  ) 

118 

EQUIVALENCE 

(STD (  73), 

STC  73(D) 

1  19 

EQUIVALENCE 

<  ST  D (  81), 

STC:  81(1)) 

126 

EQUIVALENCE 

<  STD (  89  ) , 

STC  89(1)) 

121 

EQUIVALENCE 

(STD(  97), 

STC  97(1)) 

122 

EQUIVALENCE 

<  STB  < 165  > , 

S  T  C  1 6  5  (  1  )  ) 

123 

EQUIVALENCE 

<  STB ( 113), 

STC 1 13(1)) 

124 

EQUIVALENCE 

<STB( 121  ) , 

STC 1 2 1 ( 1  )  ) 

125 

EQUIVALENCE 

(STD (129) , 

S  T  C  1 2  9  (  1  )  ) 

126 

EQUIVALENCE 

( S  T  D ( 137) , 

STC 137(1)) 

127 

EQUIVALENCE 

( STD ( 145) , 

$  T  C  1  4  5  (  1  )  ) 

128 

EQUIVALENCE 

(STB (153), 

S  T  C 1 5  3  (  1  )  ) 

129 

EQUIVALENCE 

(STB( 161  )  , 

STC 1 6 1 ( 1  )  ) 

136 

EQUIVALENCE 

( STD ( 169  ' , 

STC 1 69 ( 1  )  ) 

131 

EQUIVALENCE 

(STD (177), 

S  T  C  1 7  7  ( 1  )  ) 

132 

EQUIVALENCE 

(STD ( 1 85  )  , 

STC185C 1 ) ) 

133 

EQUIVALENCE 

(STD (193), 

S  T  C 1 9  3  (  1  )  ) 

134 

EQUIVALENCE 

(STD (261 ) , 

STC261 ( 1 )  ) 

135 

EQUIVALENCE 

(STB (209) , 

STC269( 1 ) ) 

136 

EQUIVALENCE 

(  S  T  B  (  2 1  7  )  , 

STC 217(1 ) ) 

137 

EQUIVALENCE 

(STD (225)  , 

STC225 ( 1  )  ) 

138 

EQUIVALENCE 

(STB (233), 

STC233C 1  )  ) 

139 

EQUIVALENCE 

(STD (241  )  , 

STC241  ( 1  )  ) 

146 

EQUIVALENCE 

(STB (249)  , 

S  T  C  2  4  9  (  1  >  ) 

141 

EQUIVALENCE 

(STB (257), 

STC257 ( 1  )  ) 

142 

EQUIVALENCE 

(STB (265) , 

ST  C265 ( 1  )) 

143 

EQUIVALENCE 

(STB (273) , 

STC273C 1 >  > 

144 

EQUIVALENCE 

(STD (281 ), 

STC281  ( 1  )  ) 

145 

EQUIVALENCE 

(STB (289), 

STC289 ( 1  )  ) 

146 

EQUIVALENCE 

(STB (297), 

STC297C 1  )  ) 

147 

EQUIVALENCE 

(STB(365) , 

STC365( 1 )) 

148 

EQUIVALENCE 

(STE'(313), 

STC31 3( 1 )) 

149 

EQUIVALENCE 

(STD (321  ), 

STC321 ( 1 ) ) 

150 

EQUIVALENCE 

(STD (329) , 

ST C'329  ( 1  )  ) 

151 

EQUIVALENCE 

(  S  T  B  (  3  3  7  ) , 

STC337 ( 1 ) ) 

152 

EQUIVALENCE 

(STB (345), 

ST  C345 ( 1  ) ) 

153 

EQUIVALENCE 

(ST£(353) , 

STC353( 1 ) > 

154 

EQUIVALENCE 

( STB ( 36  1  ), 

STC361 ( 1 ) ) 

155 

EQUIVALENCE 

(ST  B (369), 

S  T  C  3  6  9  (  1  )  ) 

156 

EQUIVALENCE 

( STB ( 377  )  , 

STC377 ( 1  )  ) 

157 

EQUIVALENCE 

(  S  T  B  (  3  8  5  >  , 

S  T  C  3  8  5  ( 1  )  ) 

158 

EQUIVALENCE 

( STB ( 393 ) , 

STC393( 1 ) ) 

159 

EQUIVALENCE 

(STB (401 ) , 

STC461 ( 1  )  ) 

166 

EQUIVALENCE 

(  S  T  B  (  4  6  9  )  , 

STC'469 ( 1  >  ) 

PM  WED.,  ; 


161 

DATA 

SYN 

D 

0, 

s, 

26, 

26 

162 

1, 

31, 

36, 

43, 

50 

163 

DATA 

SYN 

9  " 

55, 

62, 

68 , 

82 

164 

1, 

91, 

98, 

161  , 

164- 

165 

DATA 

SYN 

17. 

111, 

118, 

125, 

125 

166 

1,  1 

25, 

125, 

125, 

125- 

36  DEC.,  1 984 
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I  ■  pi  pn  V 


PAGE 


56' 

59 

66 

61 

62 

63 

64 

65 

66 
6? 
68 
69 
76 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
89 
98 

91 

92 


SYMBO 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


OPTS: 


LX  I 
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ST C 129(8 > 
STC 1 37 ( 8  ) 
STC145<8> 
STC 153(8) 
STC 1 6 1 ( 8 ) 
STC169(8) 
STC17?(8) 
STC 1 85 ( 8 ) 
STC 1 93 ( 8 ) 
STC26 1(8) 
STC269 ( 6 ) 
STC217(8) 
STC225 (  8  > 
STC233  <  8 ) 
STC 241 (8> 
STC249(8) 
STC257C8) 
S  T  C  2  6  5  (  8  ) 
STC273(8) 
STC281 <8> 
STC289(S) 
STC297 ( 8  > 
STC 305 ( 8  ) 
STC313<8> 
STC 32 1(8  ) 
STC  329  (S'1 
STC337(8) 
S  T  C  3  4  5  ( 8  :> 
S  T  C  3  5  3  (  8  ) 
STC361 (8> 
S  T  C  3  6  9  (  8  > 
STC377(8> 
STC'385(  8) 
S  T  C  3  9  3  (  8  ) 
STC40 1 ( 8  > 
STC409(8> 


93 

EQUIVALENCE 

<  SYM  ( 

1  >  , 

SYN 

1  (  1  )  ) 

94 

EQUIVALENCE 

(SYNC 

9  )  , 

SYN 

9(1)) 

95 

EQUIVALENCE 

( s  y  n  c 

17), 

SYN 

17(1)) 

96 

EQUIVALENCE 

(  S  Y  M  ( 

25), 

SYN 

25 C 1  )  ) 

97 

EQUIVALENCE 

(  S  Y  M  ( 

3  6  .■* , 

SYN 

33 ( 1  )  ) 

98 

EQUIVALENCE 

( SYM  ( 

41  )  , 

SYN 

41(1)) 

99 

EQUIVALENCE 

( S  YM  ( 

49), 

SYN 

49(1)) 

106 

EQUIVALENCE 

<  SYM  ( 

57)  , 

SYN 

57(1)) 

101 

EQUIVALENCE 

(  SYM  ( 

65), 

SYN 

65(1)) 

102 

EQUIVALENCE 

(  SYM  ( 

73  )  , 

SYN 

73(1)) 

103 

EQUIVALENCE 

(  SYM  ( 

81  ) , 

SYN 

81(1)) 

104 

EQUIVALENCE 

(  SYM  ( 

89), 

SYN 

89(1 ) ) 

105 

EQUIVALENCE 

(  S  Y  M  ( 

97), 

SYN 

97(1)) 

166 

EQUIVALENCE 

( SYM (105), 

SYN 1 05 ( 1 ) ) 

107 

EQUIVALENCE 

( SYM ( 1 13), 

SYN1 13(1)) 

108 

EQUIVALENCE 

(SYM ( 1 

21), 

SYN 1 2  1  (  1  )  ) 

109 

EQUIVALENCE 

(STB  ( 

1), 

STC 

1(1)) 

1 16 

EQUIVALENCE 

(  STB  ( 

STC 

9(1)) 

111 

EQUIVALENCE 

(  STB  ( 

17), 

STC 

17(1)) 

42 


PAGE  1  FTN.  OPTS:  LXI  3:2"  PM  WEI'.,  26  DEC.. 


SUBROUT I  HE  SYMBO  C  XA ,  YA,  H I ,  ASC  ,  TH ,  NC  ) 


3 

C 

4 

C 

XA 

STARTING  X- 

COORD  OF  LOWER  LEFT  OF  STRING  (USER  INCHE 

Ej 

c 

Yft 

S TAR TING  Y- 

COORD  OF  LOWER  LEFT  OF  STRING  (USER  INCHE 

6 

c 

HI 

HEIGHT 

OF  CHARACTERS  IN  STRING  (USER  INCHES) 

7 

c 

ASC 

CHARACTER  STRING 

8 

c 

TH 

ANGLE  OF  ORIENTATION  C DEGREES) 

9 

c 

NC 

+  N:  NUMBER 

OF  CHARACTERS 

10 

c 

-1:  PLOT  ONLY  SINGLE  CHARACTER 

1 1 
12 
13 

c 

-2:  DRAW  LINE  TO  POINT  AND  PLOT  SYMBOL 

c 

c 

REV 

08  FEB 

82: 

CHANGE  FILE  NAME  TO  ' SYMBOL ' 

14 

c 

REV 

12  MAY 

S3: 

SUBROUTINE  NAME  CHANGED  TO  'SYMBO' 

15 

c 

CHANGE  CALL  TO  SUBROUTINE  'FXPCG' 

16 

c 

REV 

11  JUL 

83: 

ADDED  CHARACTER  SIZE  &  DIRECTION  CALLS 

17 

c 

: 

ADDED  CODING  TO  WRITE  A  NORMAL  CHARACTER 

18 

c 

REV 

01  SEP 

83: 

DRAW  CHARACTERS  FOR  THE  HP-2648A  GRAPHIC 

19 

c 

MODIFIED  TO  RUN  OH  THE  FOURIER  SYSTEM 

20 

c 

COMMON  STATEMENT  REMOVED 

21 

c 

r 

A  CALL  TO  SUBROUTINE  'PXPCO'  ADDED 

^  ic- 

23 

L 

REAL  ASC  ( 1  )  , 

RE  (2) 

24 

INTEGER 

SYM  ( 

128),  STB (416) 

25 

INTEGER 

SYN 

1(8) 

26 

INTEGER 

SYN 

9(8) 

27 

INTEGER 

SYN 

17(8) 

28 

INTEGER 

SYN 

25(8) 

29 

INTEGER 

SYN 

33(8 ) 

30 

INTEGER 

SYN 

41(8) 

3 1 

INTEGER 

SYN 

4  9  <  8  ) 

3  2 

INTEGER 

SYN 

57(8) 

33 

INTEGER 

SYN 

65(8) 

34 

INTEGER 

SYN 

73(8) 

35 

INTEGER 

SYN 

81(8) 

36 

INTEGER 

SYN 

89(8) 

37 

INTEGER 

SYN 

97(8  ) 

38 

INTEGER 

SYN 105(8  > 

39 

INTEGER 

SYN1 13(8  > 

40 

INTEGER 

SYN1 

21(8) 

41 

INTEGER 

ST  C 

1(8) 

42 

INTEGER 

ST  C 

9(8) 

43 

INTEGER 

STC 

17(8) 

44 

INTEGER 

STC 

25(8) 

45 

INTEGER 

STC 

33(8) 

46 

INTEGER 

STC 

41(8) 

47 

INTEGER 

STC 

49(8) 

48 

INTEGER 

STC 

57(8) 

49 

INTEGER 

STC 

65(8) 

50 

INTEGER 

STC 

73(8) 

51 

INTEGER 

STC 

81(8) 

52 

INTEGER 

STC 

89(8) 

53 

INTEGER 

STC 

97(8) 

54 

INTEGER 

STC 1 05(  8  > 

55 

INTEGER 

STC1 13(8) 

56 

INTEGER 

STC121 (8) 

TERMINAL 


41 


PAGE  1  FTN.  OPTS:  LX  I  3:27  PM  WED.,  26  DEC.,  1984 


2  SUBROUTINE  WHERECXP,  YP,  SO 

3  C 

4  C  XP  PRESENT  X  COORDINATE  (USER  UNITS) 

5  C  YP  PRESENT  Y  COORDINATE  (USER  UNITS) 

6  C  SC  PRESENT  SCALE  FACTOR 

7  C 

8  C  REV  08  FEB  82:  CHANGE  FILE  NAME  TO  'WHERE' 

9  C 

10  REAL  RE ( 2 ) 

11  C 

12  C  GET  PRESENT  VALUES  OF  PX,  PY,  &  SF 

13  CALL  P X P C 0 ( 1 , L U , R E , 0 X , 0 Y , S F , P X , P Y ) 

14  C 

15  C  GET  X , Y  VALUE  IN  USER  INCHES  &  SCALE  FACTOR 

16  XP=PX 

17  YP-PY 

18  S  C  =  S  F 

19  RETURN 

20  END 


FTN4X  COMPILER:  HP92834  REV. 2226  <820503) 


**  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM:  46  COMMON:  1  NONE  ■ 


PAGE 


1 


FTN. 


l  x  i 


1  984 


OPTS: 


3:26  PM 


WEI*.  ,  28  I* E C 


2  SUBROUTINE  FACTO (SC) 

3  C 

4  C  SC  SCALE  FACTOR 

5  C 

6  C  REV  68  FEV  82:  CHANGE  FILE  NAME  TO  FACTOR 

7  C  REV  13  MAY  83:  CHANGE  SUBROUTINE  NAME  TO  'FACTO 

8  C 

9  REAL  R  E  ( 2 

10  C 

11  C  GET  VALUE  OF  SF 

12  CALL  PXPCO(l,LU,RE,OX,QY,SF,PX,PY> 

13  C 

14  C 

15  C  UPDATE  SCALE  FACTOR.  (CONVERT  USER  UNITS  TO  MACHINE 

IS  IFCSC.  GT.  O .  >SF=SC*SF 

17  IF (SC.  EC.  1 . >SF=1 . 

18  C 

19  C  SAVE  NEW  VALUE  OF  SF 

20  C  A  L  L  P X P C  0 (  0 ,  L  U , R E , 0 X , 0  V , S  F , P X , P Y  > 

21  RETURN 

22  END 


FTN4X  COMPILER:  HP92834  REV. 222b  (820503) 

*«■  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM:  66  COMMON: 


39 


INCHES 


(NONE 


PAGE  1  FTN.  OPTS:  LX  I  3:35  PM  WED.,  26  DEC.,  1  AS 4 


2  S  U E  P  0  U  TIME  P X  P  C  0  < J S T , L  U , R  E , 0  X , 0 V , S  F , P X , P V > 

3  REAL  RE<2>  , VARS < 7) 

4  C 

5  C  JST  -  6:  STORE  VALUES  IN  ARRAY  VARS 

6  C  -  1:  RETREIVE  VALUES  FROM  ARRAY  VARS 

7  C 

8  C  STORE  VALUES 

9  I F ( JST . NE . 0 >  GO  TO  10 

10  I  UN  I T  =  LU 

11  VARS< 1 )  =  RE< 1  ) 

12  V  A  R  S  <  2  )  =  R  E  <.  2  > 

13  V  A  R  S  <  3  )  =  0  X 

14  VARS(4)=0Y 

15  VARS  <  5 ) =  SF 

16  VARS  C  6 ) «PX 

17  VARS  <  7 >  =F' Y 

18  RETURN 

19  C 

20  C  UPDATE  VALUES 

21  C 

22  10  LU=IUNIT 

23  re  a  )=vAP.sa  :> 

24  RE  <  2  >  =  VAF'S  <  2  > 

25  OX* VARS  <  3 ) 

26  OY  =  VARS  <  4  > 

27  S F  =  V A R S  <  5  > 

28  PX=VARS<6> 

29  PY«VAR.S<7> 

30  RETURN 

31  END 


FTN4X  COMPILER:  HP92834  REV. 2226  <820503) 


**  NO  WARNINGS  **■  NO  ERRORS  **  PROGRAM:  104  COMMON:  ‘NONE' 


38 


PAGE  3 

PLOT  OPTS:  LX  I 

3:26  PM  WED.,  26 

1  12 

WFITECLU,  520 >  IEANIi,  LP5, 

I  DSP,  IERND,  LF'5,  LUO,  ICSP 

113 

WRITECLU, 520)  IESTR, LDR 

114  520 

115  C 

FORMAT (7R2> 

116  C 

STORE  VALUES 

117  70O 

118  C 

CALL  PXPCO < 0,LU,RE,  OX ,  0 V 

,  SF,  PX,  F'Y :> 

119 

RETURN 

120 

END 

FTN4X  COMPILER:  HP92834  REV 


2226  ( 820503 > 


**  NO  WARNINGS  *■*  NO  ERRORS  PROGRAM;  390 


COMMON: 


NONE 


37 


57 

C 

5  S' 

100 

59 

60 

61 

110 

62 

63 

115 

64 

116 

65 

120 

66 

67 

68 

C 

69 

C 

70 

71 

72 

73 

74 

*7  cr 

1  -J 

76 

C 

77 

C 

78 

200 

79 

80 

81 

210 

82 

83 

220 

84 

230 

85 

86 

C 

87 

C 

88 

C 

89 

600 

90 

91 

C 

92 

C 

93 

94 

95 

C 

96 

500 

97 

98 

C 

99 

C 

100 

C 

101 

C 

102 

103 

C 

104 

c 

105 

106 

107 

C: 

108 

510 

109 

C 

110 

C 

Ill  c 


PEN  DOWN,  DRAW  LINE 
CONTINUE 

I F ( LU. EQ . 1 )  GO  TO  115 
WRTTE<LU, 1 10>  IX,  IV 
FORMAT  < " PH  5  PA  ",  1 6 , 1 6 > 

GO  TO  120 

WRITECLU, 116)  IESTR, ILPLE, IX, IV, IZSP 
FORMAT <2R2, 16, ",  ",  I  € , R  2  > 

CONTINUE 
PX=XA 
P  V  =  Y  A 

DEFINE  NEW  ORIGIN  IN  MACHINE  INCHES  IF  REQUESTED 

IF  <IA.  GT.  0 )  GO  TO  70O 

F'X=0.  O 

PV=0. 0 

G  X = A  V 1 

0Y=AV2 

GO  TO  70O 

PEN  UP,  MOVE  TO  NEXT  X,  Y  COORDINATE 
CONTINUE 

IFCLU. EQ. 1 >  GO  TO  220 
W  R I T  E  <  L  U , 2 1 0  >  IX, I Y 
FORMAT < "PU; PA" , 16, ",  ",  16) 

GO  TO  120 

WRITECLU,  230)  IESTR,  ILF'LA,  IX,  I  V,  IZSP 
FORMAT (2R2, 16, ",  ",  16, R2 > 

GO  TO  120 

END  OF  PLOTS 

CONTINUE 

I F ( LU . HE . 1 >  GO  TO  70O 

RESET  TERMINAL 

WR I TE ( LU, 520  >  IESCG 

GO  TO  700 

CONTINUE 

IFCLU.EQ. 1 >  GO  TO  510 

ADVANCE  THE  PAPER  ON  THE  HP9872T  PLOTTER 

FULL  PAGE  ADVANCE 

IF (I PAGE. EQ. 10)  CALL  HPPAGCl) 

HALF  PAGE  ADVANCE 

IFC  IPAGE. LT. 0>  CALL  HPPAGC2) 

GO  TO  70O 

CONTINUE 

HARD  COPY,  CLEAR  SCREEN  < GRAPHIC  DISPLAY) 


S  U  B  R  0  LI  TINE  PL  0  T  ( X  ft ,  V  ft ,  I  ft  ' 


3  L 

4  C 


5  i. 


22  L 

23  C 

24  C 

25  C 

26 
?? 


c~  c- 


30 

3 1 


34 


3  b 
37 


39 

4  0 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50  C 

51  C 

52 


Xft 

Yft 

Ift 


(USE R  UNITS  1 
(USER  UNIT S  ) 


X  COORD  I NftTE 
Y  COORDINATE 
PEN  CONTROL 
+999  END  OF  PLOTS 

+11  END  OF  PLOTS  (  RESET  TERMINAL  -  FIRST 
+10  HARD  COPY,  CLEAR  SCREEN  (TERMINAL) 


PRESS 


10 

C 

+  10 

ADVANCE 

PAPER 

ONE  FULL  PAGE 

1 1 

C 

-10 

ADVANCE 

PAPER 

ONE  HALF  PAGE 

12 

C 

+  3 

MOVE  TO 

(Xft,  Y A  PEN  UP 

1  3 

C: 

+  2 

MOVE  TO 

(XA,  Yft)  PEN  DOWN 

14 

C: 

-2 

MOVE  TO 

(Xft,  Yft 

>  PEN  DOWN  SET 

ORIGIN  TO  (X 

15 

c 

-3 

MOVE  TO 

(Xft,  Yft 

>  PEN  UP  SET 

ORIGIN  TO  (X 

16 

c 

17 

c: 

ANY 

OTHER  VALUE  OF 

Ift  IS  TREATED 

AS  ft  NOP 

18 

c 

19 

c 

REV 

02 

FEE  82: 

CHANGE 

FILE  NAME  TO  ' 

PLOT" 

20 

c 

REV 

Cl 

JUN  83: 

SUPPORT 

HP-987 2 T  PLOTTER 

21 

c 

REV 

01 

SEP  83: 

SUPPORT 

H P - 2 6 4 8 ft  GRAPHICS  TERMINAL 

MODIFIED  TO  RUN  ON  THE  FOURIER  SYSTEM 
COMMON  STATEMENT  REMOVED 
CALLS  TO  SUBROUTINE  "PXPCO  ADDED 


INTEGER  I  A,  IC0(6> 

REAL  ft  V  (  2  >  ,  R  E  (  2  > 

E  Q U I  V  A  L  E N  CE  (A  V < 1 > ,  A  V 1 > ,  < ft  V ( 2 > ,  A  V 2  > 

DATA  N  C  0  6  / ,  I  C  O  •••'  2 , 3  ,  -2,  -3,  10,  11/ 

DATA  I ESTR/0 15452B  , ILFLA  070141B", I LPLB/070 1 42B 
DATA  I  X S P / O 5504 0 E /  ,  L D ft 062101  B  ■  ,  ICS P / 041440 B  ' 
DATA  L U 0 / 07246O B / , IEAND / 015446 B / , L P 5 / 0 7 0 0 6 5 B / 
DATA  I D S P / 0 4 2 0 4 0 B / ,  I  E S C G •••' 0 1  5 5 4 7 B / ,  1 2SP/055O40B 


RETREIVE  VALUES 

CALL  P X P C 0 (1 , L U , R E , 0 X , 0 Y , S F , P X , P  V  > 


CONVERT  FROM  USER  UNITS  TO  MACHINE  INCHES  AND  UNIT 
I  E  =  0 
I  0=1  A 
I  PAGE* I© 

IF<  10.  EC! .  -10)  10=10 
IF  (10.  EQ.  999 >  10=11 
AVI =SF*Xft+OX 
AV2=SF* YA+OY 
X=AV1/RE( 1 > 

IX=X+. 5 
Y=AV2/RE<2> 

I Y  =  Y  +  .  5 


54  30 


IDENTIFY  PEN  CONTROL  OPTION 
DO  30  11=1,  NC0 

IF  (10.  EO.  IC-0(  1 1  > )  GO  TO  (IOC,  20O,  100,  200, 

CONTINUE 

GO  TO  70O 


■J  . J 


3  C 

4  C 

5  C 

6  C 

7  C 
S  C 
9  C 

10  C 

1  1  C 

12  C 

13  C 

14  C 

15  C 

16  C 

17  C 
IS 

19 

20 
21 

23  C 

24  C 

25  10 

2  6 

27  C 
2S  C 

29  2d 

30 

31  C 
3  2  C 
■6  o  3  u 
34 

•*'  CT 

36 

37  40 

38  C 

3  9  C 

4  0 

4  1  50 
4  2 

4  3  C 

44  C 

45 

46  6© 

47 

48 

49 

50  70 

51  80 

52  C 

53  C 

54  9  0 

56 


SUBROUTINE  NUMBE  (X,  Y,  HGHT,  Z,  T,  N> 

X , V  COORDINATES  OF  THE  LOWER  LEFT  CORNER  OF  THE  FIRST 

DIGIT  OF  OUTPUT.  X,Y  IS  IN  FLT .  FT.  'USER  INCHES' 
HGHT  HEIGHT  OF  THE  PLOTTED  NUMBER  IN  FLT.  FT.  '.USER  INC  HE 
Z  FLT.  FT.  NUMBER  TO  BE  PLOTTED 

T  ORIENTATION  ANGLE  FOR  THE  NUMBER 

N  NUMBER  OF  DECIMAL  DIGITS  FOR  OUTPUT 

N=- 1  WILL  SUPPRESS  THE  DECIMAL  POINT 

REV  08  FEB  82:  CHANGE  FILE  NAME  TO  'NUMBER 
REV  08  FEB  82:  FIX  CALC:  OF  FPN  WHEN  N.  GE.  O 
REV  12  MAY  S3:  CHANGE  SUBROUTINE  NAME  TO  'NUMBE 
REV  12  MAY  83:  CHANGE  CALL  TO  SUBROUTINE  'SYMEO 
REV  26  JUL  S3:  CHANGED  "ALOG10"'  TO  'ALOGT 

FPN® ABS (  Z ) 

IF  < N . G E . 0 >  FPN*FPN+. 5*10. **(-N> 

X  T  =  X 
YT  =  Y 

IF  (  Z  >  10,  90,  20 

DRAW  MINUS  SIGN  FOR  NEGATIVE  NUMBER 
CALL  SYMEO  (XT,  YT,  HGHT,  1H-,  T,  1 > 

CALL  WHERE  (XT,  YT,  ZT> 

GET  NO.  OF  DIGITS  TO  LEFT  OF  DECIMAL  POINT 
I  =  A  L  0  G  T  ( F  P  N  >  +  1 . 0  0  O  i"  ’*  1 
IF  (I)  50,  50,  30 

DRAW  DIGITS  TO  LEFT  OF  DEC.  FT. 

DO  40  J  =  1  ,  I 
K  =  FPN*10.0**< J-I> 

CALL  SYMBO  (XT,  YT,  HGHT,  FLOAT  (K  +  48.>,  T,  - 1  .• 

FPN  =  FPN  -  FLOAT  ( k  *  1  0  *  * (  I  - J > j 
CALL  WHERE ( XT, YT, ZT> 

DRAW  DECIMAL  POINT  IF  REQUESTED 
IF  (N+l)  SO,  80,  50 

CALL  SYMBO  (XT,  YT,  HGHT,  1H.,  T,  1  > 

CALL  WHERE  (XT,  YT,  ZT> 

DRAW  DIGITS  TO  RIGHT  OF  DECIMAL  POINT  IF  REQUESTED 
IF  ( N >  SO,  80,  60 
DO  70  I J= 1 ,  N 
K  =  F  P  N  *  1  0 . 0 

CALL  SYMBO  (XT,  YT,  HGHT,  FLOAT  (K+4S>,  T,  -1) 

CALL  WHERE  (XT,  YT,  ZT> 

F  P  N  =  F  P  N  *  1  O  .  0  -  F  L  0  A  T  (  K  ) 

RETURN 

SPECIAL  CASE  IF  NUMBER  =  0.0 

CALL  SYMBO  (XT,  YT,  HGHT,  1 2H0 . OOOOQOQQOO ,  T,  2+N* 

RETURN 

END 
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FT  N  . 


OPTS: 


LX  I 


3:29  F'M  WED.  ,  26  DEC.,  1984 


SUBROUTINE  SCALE  <X,  S,  N,  K> 


4  C 


7  C 

9  C 

10  C 

11  C 
1  £  C 

13  C 

14 

15 

Id  C 

17  C 

18 
19 


N 

K 

RE' 


ARRAY  OF  DATA  TO  BE  SCANNED  FOR  MAXIMUM  AND  MINIMUM 
VALUES.  ADJUSTED  MINIMUM  VALUE  STORED  IN  X*;N*K>1  ■ . 
ADJUSTED  D  X i M A X - M I N >  STORED  I N  X < N * K  +  K +1 > . 

LENGTH  OVER  WHICH  THIS  DATA  IS  TO  EE  PLOTTED.  < MACHINE 
NUMBER  OF  DATA  POINTS  IN  THE  ARRAY  X. 

REPEAT  CYCLE  OF  MIXED  ARRAY  (NORMALLY  1>. 

26  JUL  83:  CHANGED  '  ALGG 1 6 '  TO  '  ft  L  O  G  T  ■' 


REAL  X(l),  X M ( 5 ) 

DATA  X M / 2.0,  4.0,  5.0,  8.0,  10.0 

GET  SIZE  OF  INPUT  MATRIX 
NP=N*K 
L  =  N  P  +  1 


20 

J  =  L  +  K 

21  C 

22  C 

GET  MIN,  MAX  VALUES  IN  X 

c.  -Z' 

X  M  A  X  =  X  (  1  '> 

24 

X  M I N  =  X  M  A  X 

c 

DO  100  1=1,  NP,  f 

26 

XI=X< I > 

27 

X M  A  X  =  ft  M  ft  X  1 < XMAX,  XI  • 

2  8  1  O  0 

X  M I N  =  A  M  I  N  1  1  X  MIN,  XI  1 

29 

IF  (S.LE.O.0)  GO  TO  210 

30  C 

31  C 

GET  RATIO  OF  USER  RANGE 

3  2 

DX* <  XMAX-XM I N  •  S 

3  3 

IF (DM. LE. 0.0  1  GO  TO  210 

34  C 

35  C 

ROUND  MINIMUM  AXIS  VALUE 

36 

I DX  =  ALOGT  < DX  > 

D'  "7 
•J'  1 

XI»10. 0**IDX 

38 

IFCXMIfO  1 10,  140,  120 

39  110 

X  M I  N  =  I  F  I X  ( X  M  I  N  -  1  .  O  • 

40 

X I  *  X I - 0 . 9999 

4  1  120 

XM I N= I F I X ( XM I N  XI  • 

42 

X  M I  N  =  X  M  I  N  *  X  I 

4  3  14  0 

X  C  L  >  =  X  MIN 

44  C 

45  C 

ROUND  TIC  DISTANCE  TO  ft 

46 

T  =  <  <  XMAX-XM I N  >  /£  > 

47 

IF<T.LE.0.0>  GO  TO  210 

48 

DX=ALOGT  <  T  > 

49 

I  DX  =  DX 

50 

XMAX= 1 . 0 

51 

DX* 10. 0**  < DX- I DX  > 

52  150 

I F  (  DX- 1 . 0  '■>  160,  200,  170 

53  160 

D  X  *  1 0 . 0*DX 

54 

I  D  X  =  I  D  X  -  1 

55 

GO  TO  150 

56  170 

DO  180  1=1,5 

INC  HE 
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PAGE  £  SCALE  OPTS:  LX  I 


3:29  PM  WED.,  26  DEC.,  1934 


57  X I =  X  H  < I > 

58  IFCDX. LE. XM< I >>  GO  TO  190 

59  180  CONTINUE 

60  190  XMAX=XI 

61  200  X< J)=XMAX*10. 0**IBX 

62  RETURN 

63  C 

64  C  UNSCALABLE  -  SET  STARTING  POINT  IN  X < L > ,  TIC  DIST=1  IN 

65  210  X< J>  =  1 . 0 

66  X  ( L  >  =XM I N-0 . 5 

67  RETURN 

68  END 


FTN4X  COMPILER:  HP92834  REV. 2226  <820503) 

**  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM:  285  COMMON:  < NONE 
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1 


FTN. 


3:30  PM  WED. 


1  934 


OPTS:  LX  I 


2  €  D  E  C  .  . 


2  SUBROUTINE  AXIS  <X0,  VO,  AO,  NO,  SO,  TO,  CO,  D0> 

3 

4  C 

5  C  X©  X  COORDINATE  OF  START  OF  AXIS  (USE R  INCHES) 

6  C  YO  V  COORDINATE  OF  START  OF  AXIS  (USER  INCHES) 

7  C  AG  CHARACTER  STRING  TO  DESCRIBE  AXIS  (MSB, LSB) 

8  C  NO  NUMBER  OF  CHARACTERS  IN  STRING 

9  C  -  ON  CLOCKWISE  SIDE  OF  AXIS  (NORMAL  FOR  X) 

10  C  +  ON  COUNTER  CLOCKWISE  SIDE  OF  AXIS  (NORMAL  FOR  Y) 

1*  C  SO  LENGTH  OF  AXIS  (USER  INCHES) 

12  C  TO  ANGLE  OF  AXIS  TO  X  AXIS  OF  PAPER  (DEGREES) 

13  C  0.0  FOR  X-AXIS 

14  C  90.0  FOR  Y-AXIS 

15  C  CO  COORDINATE  OF  MINIMUM  TICK  ON  AXIS  (PROBLEM  UNITS) 

16  C  NORMALLY  PROVIDED  BY  'SCALE,  FOLLOWING  THE  LAST  POINT 

17  C  IN  THE  DATA  ARRAY  TO  BE  PLOTTED 

18  C  DO  DISTANCE  BETWEEN  TICKS  (PROBLEM  UNITS) 

19  C  NORMALLY  PROVIDED  BY  'SCALE',  FOLLOWING  CO 

20  C 

21  C  REV  OS  FEB  82:  CHANGE  NAME  TO  'AXIS 

22  C  REV  13  MAY  83:  CHANGE  CALLS  TO  SUBROUTINES  NUMBE,  SYMBO 

23  C  REV  G1  SEP  83:  CHANGE  CHARACTER  SIZE  FOR  HP-2648A  GRAPHICS  TERMINAL 

24  C 

25  REAL  AGO), RE (2 > 

26  C 

27  C  RETREIVE  VALUES 

28  CALL  PXPCO ( 1 , LU , RE , OX , OY , SF , PX , PY ) 

29  C 

30  C 

31  N1=IABS(N0) 

32  N  2  =  S  0  +  0 . 50 

33  B 1  =0.  5 *•  S O - .  06*FL0AT  ( N 1  +7  > 

34  B2-0. 12*FL0AT(N1+1> 

35  C 

36  C  CONVERT  DEGREES  TO  RADIANS  t  SET  UP  COORD  ROTATION 

37  T1=T0*G. 017453294 

38  T3  =  C0S(T1  ) 

39  T  4  =  S I N ( T  1  > 

40  IF (NO. LT. 0)G0  TO  10 

4  1  B  3  =  0 . 3675 

42  B4  =  0 .  18 

43  T  2  =  T0 

44  T5  =  0 .  1 

45  GO  TO  20 

46  10  B3  =  - . 4375 

47  B  4  =  - 0 . 25 

48  T2-T0 

49  T5  =  - .  1 
5G  C 

51  C  GET  X,Y  COMPONENTS  OF  TIC  MARK  &  START  POINT 

52  20  T6=T5#T3 

53  T5  =  T5*T  4 

54  X1*X0 

55  Y 1 =  Y  0 

56  C 
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AXIS  OPTS:  LX I  3:30  PM  WED.,  26 

5? 

C 

DRAW  TIC  MARK  AMD  NEXT  SEGMENT  OF  AXIS 

58 

c 

59 

DO  100  1=1, M2 

ee 

X  2  =  X 1  -  T  5 

€1 

Y2=Y1+T6 

62 

CALL  PLOT  CX2,  Y2,  3) 

63 

CALL  PLOT  <X1,  Yl,  2) 

64 

X 1 =X 1 +T3 

65 

Y 1 =Y 1 +T4 

66 

100 

CALL  PLOT  CXI,  Yl,  2) 

67 

C: 

68 

c 

DRAW  LAST  TIC  MARK 

69 

X  2  =  X 1  -  T  5 

70 

Y2= Y 1 +T6 

71 

CALL  PLOT  CX2,  Y2,  2) 

72 

c 

73 

c 

GET  VALUES  FOR  TIC  LABELS :  DIFF,  END,  EXPONENT 

74 

D 1  =D0 

75 

C1=C0+N2*D1 

76 

E 1 =0 . 0 

77 

IF  CD1.EG.0.6)  GO  TO  140 

78 

c 

79 

c 

CHANGE  EXPONENT  IF  VALUE  IS  GREATER  THAN  100 

80 

110 

IFCDl.LT. 100.0)  GO  TO  130 

81 

D1=D1*0. 1 

82 

C1=C1*0. 1 

83 

El-El+1 .© 

84 

GO  TO  110 

85 

120 

B1=B 1*10.0 

86 

C1=C1*10. 0 

87 

El-El-1.0 

88 

C 

89 

c 

CHANGE  EXPONENT  IF  VALUE  IS  LESS  THAN  .01 

90 

130 

IFCDl.LT. 0.01)  GO  TO  120 

91 

C 

92 

C 

LAST  TIC  +  DISTANCE  AWAY  FROM  AXIS  +  1  CHAF:  TO 

93 

140 

X2*X1-B4*T4-.0857*T3 

94 

Y2=Y1+B4*T3-.0857*T4 

95 

N  2  =  N  2  +  1 

96 

C 

97 

C 

98 

C 

DEFINE  HEIGHT  OF  CHARACTERS 

99 

H I GHT=0 . 10 

100 

C 

101 

c 

CHANGE  CHARACTER  SIZE  FOR  THE  TERMINAL 

102 

IFCLU.EQ.l)  H I GHT=0 . 15 

103 

c 

104 

c 

LABEL  EACH  TIC  MARK 

105 

c 

106 

DO  150  1=1,  N2 

107 

CALL  NUMBE  CX2,  Y2,  HIGHT,  Cl,  T2,  2) 

106 

C1-C1-D1 

109 

X2=X2-T3 

110 

150 

Y2-Y2-T4 

1  1  1 

C 

DEC:. 


LEFT 


54 


PAGE 


PAGE  3 

AXIS  OPTS:  LX  I 

3:30  PM  WED. 

112  C 

WRITE  LABEL  FOR  AX  I 

C; 

113 

X2=X6+£1*T3-B3*T4 

114 

Y2=Y0+B1*T4+B3*T3 

1  15 

116  C 

CALL  SYMBO  <X2,  Y2, 

MIGHT 

,  AO ,  T  2 ,  Nl) 

11?  e 

WRITE  EXPONENTIAL  S 

CHLE  FACTOR  IF  REQUIRED 

118 

IF  (El. EG. 6.6)  RETURN 

119 

X  2  =  X  2  +  B  2  *  T  3 

126 

Y2=Y2+B2*T  4 

121 

I F  <  T2 . EQ . 0 . 0  .AND. 

LU. EQ. 

1)  X2  =  X2+.  16 

122 

IFCT2.EQ.90.0  .AND. 

LU.EQ 

.  1)  Y2=Y2+. 10 

123 

CALL  SYMBO  <X2,  Y2, 

HIGHT 

,  6  H  <  X 1 0  >  ,  T  2 ,  6 

124 

X2=X2+. 48*T3-. 0?*T4 

125 

Y2=Y2+.48*T4+.07*T3 

126 

IF(T2.EQ.0.6  .AND. 

LU.EQ. 

1)  X2=X2+.20 

12? 

IF<T2. EQ. 90. 0  .AND. 

LU.EQ 

.  1)  Y  2  =  Y  2  + . 2 6 

128 

CALL  NUMBE  <X2,  Y2, 

HIGHT 

,  El,  T  2 ,  -1) 

129 

RETURN 

130 

END 

FTN4X  COMPILER:  HF'92'834  REV. 2226  (820503) 

*  *  N  0  W  A  R  N  I  N  G  S  *•  *  N  0  E  R  R  0  R  S'  *  *  P  R  0  G  P  AM:  64? 
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1 


FTN 


2  6  DEC.,  19  8 4 


OPTS:  LX  I 


3:36  PM  WED., 


3  C 

4  C 

5  C 

6  C 


8 

9 

10 
1 1 


C 

C 

C 

C 

c 

c 

c 

c 

0 

c 

c 

c 


c 

c 


c 

c 


c 

c 


c 

c 

100 


c 

c 


110 
54 


SUBROUTINE  LINECX,  Y,  H,  K,  J,  L> 

X  ARRAY  OF  ABCISSA  VALUES  (USER  UNITS) 

Y  ARRAY  OF  ORDINATE  VALUES  (USER  UNITS) 

N  NUMBER  OF  POINTS  IN  THE  ARRAY 

K  REPEAT  Cv'CLE  OF  A  MIXED  ARRAY  (NORMALLY  =  1) 

J  >0,  SYMBOL  AND  LINE 
=0,  LINE  ONLY 
<0,  SYMBOL  ONLY 

L  NUMBER  OF  SYMBOL,  SEE  SYMBOL  ROUTINE  FOR  LIST 
0-17  ARE  CENTERED  SPECIAL  SYMBOLS 

REV  08  FEB  82:  FILE  NAME  CHANGED  TO  "LINE 

REV  13  MAY  83:  CHANGE  CALL  TO  SUBROUTINE  'SYMBO' 

THIS  ROUTINE  EXPECTS  XMIN,  DX,  YMIN  AND  DY  TO  BE  STORED  IN 
X < N  *  K + 1 ) ,  X ( N *  K + 1 + K > ,  Y ( N  *  K + 1 ) ,  A  N  D  Y ( N  *  K + 1 +  K )  R E  S  R  E  C  T I  V  ELY 

REAL  X ( 1  )  ,  Y ( 1  ) 

IF  (N.LT.  1)  GO  TO  110 

CHECK  FOR  VALID  SYMBOL 
AL=L 

IFCAL.LE.0.0  .OR.  AL.GT.127.)  AL=0.0 

GET  START  POINT,  SCALING,  END  OF  DATA 
I 0=N*K+ 1 

1 1  =  1 0  +  K 

1 2  =  1 0  -  K 

XM I N=X (10) 

DX=X  ( 1 1 ) 

YMIN=Y( 10) 

DY* Y <11 > 

SET  UP  INDICES  AND  FLAGS 
12*1 

13  =  3 

IF(J.GE.O)  13=2 

14  =  3 

1 5  =  N 

CONVERT  NEXT  X,Y  LOCATION  TO  USER  INCHES  £,  MOVE  PEN 
X1=(X< I2)-XMIN)/DX 

Y  1  =  (  Y  (  1 2  )  -  Y  M  I  N  )  /  D  Y 
CALL  PLOT  (XI,  Yl,  14) 

14=13 

PLOT  SYMBOL  IF  REQUESTED 

IF  (J.NE.0)  CALL  SYMBO  (XI.  Yl,  0.14,  AL,  Q.0,  -1) 

1 2  =  I  2  +  K 
15=15-1 

IF  (I5.GT.0)  GO  TO  100 

RETURN 

END 
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PAGE  1  FTN .  OPTS:  LKI  3:31  PM  NEB. ,  26  DEC..  1984 


2  SUBROUTINE  PXPCG  CIO,  II,  I2> 

3  C 

4  C  THIS  ROUTINE  EXTRACTS  CHARACTER  #11  FROM  STRING  10 

5  C  CRHS  FIRST,  LHS  SECOND) 

6 

7  C 

8  C  REV  08  FEB  82:  CHANGE  FILE  NAME  TO  'PXPCGT' 

9  C  REV  12  MAY  83:  SUBROUTINE  NAME  CHANGED  TO  'PXPCG" 

10  C 

11  INTEGER  lO  < 1 > ,  II,  12 

12  C 

13  C  GET  INDEX  -1  OF  WORD  CONTAINING  CHAR 

14  JW=<I1-1)'2 

15  C 

16  C  WITHIN  WORD  INDEX  OF  DESIRED  CHAR  Cl  OR  2) 

17  JB= I 1-JW-JW 

18  C 

19  C  PULL  TWO  CHARACTERS  FROM  STRING 

20  JW=I0<JW+1) 

21  C 

22  C  SHIFT  FROM  LHS  IF  SECOND  CHARACTER  IS  DESIRED 

23  IF  CJB.NE.l)  JW=JW/2**8 

24  C 

25  C  RETURN  DESIRED  CHAR  IN  RHS  OF  WORD 

26  I2-IANDCJW,  255) 

27  RETURN 

28  END 


FTN4X  COMPILER:  HP92834  REV. 2226  <820503) 


*  *  N 0  W  A  R N I N  G  S  *  *  N  0  E  R P 0 R S  **  PR 0 G  R A  M :  52  C  0 M  M  ON:  < N ONE 
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FT  N. 


L  :.I 


DEC . ,  1?S4 


OFT! 


3:  51  PM  WED.,  2* 


SUEF  OUT  I  ME  C  GET •  10 ,  I  1  ,  I  2  1 

THIS  POUT  I  ME  £  TRACT'.-.  CHAPACTEF  #11  FROM  STRING  10 
■  L  H  5  FIRST,  F  H'S  SECOND  ■ 

FE.  OS  F  E  £  SI:  CHANGE  FILE  NAME  TO  'CGET 

INTEGER  10  iL,  II,  ID 
J  w  =  •  I  1  -  1  i 
J  l  =  I  l  -  J  w  -  T  w 
J  W  =  I  0  T  W  ♦  1 

I f .  J l  .ME.  1  1  J  W  =  J  W  2  *  *  S 
I  D*  I  AND'  ,’w,  255  ■ 

FETuFn 

EnD 


. M  F  I  l  E  F  :  mF  ?2i  -4  FE.222t  c  £20503  > 

WARNING:  **  NO  EFFC'FS  **  PROGRAM:  52  COMMON : 


<  NONE 
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GE  1  FTN.  OPTS:  LXI  3:31  PM  WED. ,  26  DEC..  1384 


2  SUBROUTINE  HPCBR  <  TH ) 

3  C 

4  C  THIS  ROUTINE  SPECIFIES  THE  RESOLUTE  DIRECTION  IN 

5  C  WHICH  CHARACTERS  ARE  LETTERED 

6  C 

7  C  TH  -  ANGLE  BETWEEN  CHARACTER  EASE  AND  MACHINE  X  AXIS  '.DEGREES 

8  C 

9  INTEGER  I  CHAR < 10) 

10  C 

11  C  DEFINE  ABSOLUTE  CHARACTER  DIRECTION  COMMAND 

12  CALL  HPOUT  < 1  HD ) 

13  CALL  HPOUTC1HI) 

14  C 

15  C  SEND  RUN  VALUE 

16  RUN=COS(TH*. 0174532925) 

17  CALL  FP2AS  <  RUN, 10,1  CHAR , N  > 

18  N=MIN0(N+4, 10) 

19  DO  100  1=1, N 

20  100  CALL  HPOUT  <  ICHARU  >  > 

21  C 

22  CALL  HPOUT ( 1 H ,  > 

23  C 

24  C  SEND  RISE  VALUE 

25  R I SE=S INC TH*. 01 74532925) 

26  CALL  FP2AS  C  RISE,  10,  I  CHAR , N  > 

27  N*MIN0CN+4, 10) 

28  DO  200  I = 1 , N 

29  20O  CALL  HPOUT  C I  CHAR (I)> 

30  C 

31  CALL  HPOUT (1H;) 

32  C 

33  RETURN 

34  END 


f N 4 X  COMPILER:  HP92834  REV. 2226  <820503) 


**  NO  WARNINGS  **  NO  ERROR S  **  PROGRAM:  118  C 0 M MON:  < N 0 N E 
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\0  co  o>  «_n  ^  co  ro 


i 


FTH 


DEC  . 


:•  SUBROUTINE  HF'CSZ  <W ,  H  > 

i!  C 

i  C  THIS  ROUTINE  SPECIFIES  THE  SIZE  OF  CHARACTERS  £  SYMB 

5  C 

5  C  M  -  WIDTH  OF  CHARACTER  IN  INCHES 
?  C  H  -  HEIGHT  OF  CHARACTER  IN  INCHES 
B  C 

9  INTEGER  I  CHAR <1 6 ) 

0  C 

1  C  DEFINE  CHARACTER  SIZE  COMMAND 

CALL  HPOUTUHS) 

CALL  HPOUT  < 1 H I ) 

C 

C  CONVERT  TO  CM  £  SEND  WIDTH  VALUE  TO  PLOTTER 

CALL  FF'2AS'.W*2. 54,  10,  I  CHAR,  N> 

N  =  M  I  N  O  i  N  +  4  ,  10'' 

DO  100  I = 1 , N 

10O  CALL  HPOUT'  I  CHAR'  I  >  '■ 

0  C 

1  CALL  HPOUT ' 1H. ' 

'2  C 

!  3  C  SEND  HEIGHT  VALUE 

:4  C  CONVERT  TO  CM  l  SEMI  HEIGHT  VALUE  TO  PLOTTER 

:5  CALL  FP2AS'  H-Z. 54,  10.  ICHAF , N  • 

:E  N  =  M  I  N 0  '  N ♦  4  ,  10  1 

DO  ZOO  1  =  1  ,  n 

■  S  ZOO  CALL  HPOUT'  IC  *  a  R  I 

c 

50  CAtL  HfC.''  1 1-  ; 

31  RETijRn 

32  END 


J4:  COMPILER:  HF  9Z5  1-4  R£  .  Z  Z  Z  *  iZ 050  I 

►  Mu  WARNIN'.,:  *  ♦  N  _  E  P  ~  :z  :  ■*  *  P  P  .  jP  H”  ;  11;  C  0  M  M  U  N 
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1  FT  H.  OPTS:  LX  I  3:50  PM  WEI'.,  26  I'EC .  ,  1934 


SUBROUTINE  HROUT-  I  CHRP;' 

r 

C  THIS  ROUTINE  SENDS  OUTPUT  TO  THE  HF-9S72T  PLOTTER 

C 

C  I  CHRP  -  CHRRRCTER  TO  OUTPUT  TO  PLOTTER 
C 

C  REV  01  SEP  S3:  MODIFIED  TO  PUN  ON  THE  FOURIER  SYSTEM 
C  :  COMMON  STRTEMENT  REMOVED 

C:  :  R  CRLL  Tu  SUBROUTINE  '  PXPCG  ADDED 

C 

RERL  R  E  <  2  > 

INTEGER  IC<100> 

DRTR  I  TERM  0354 4 OB 
C 

C  GET  UNIT  NUMBER 

CRLL  r'XF'C  0  1  1  ,  LU  ,  RE  ,  OX  ,  0  Y  ,  SF  ,  PL  ,  P  V  - 
C 

C  SAVE  CHRRRCTERS  FOR  OUTPUT  TO  PLOTTER 

1  =  1  +  1 
N  =  I 

I  C  <  I  >  =  I  C  H  A  F: 

:  C 

■  C  CHECK  FOR  TERMINRTOR 

I  PCI  CHAR  .EC'.  I  TERM-  1=0 
IFCI.NE.O-  RETURN 
'  C' 

C  OUTPUT  CHARACTERS  TO  F' L 0 T T E F' 

•  C 

i  I  E  N  D  =  N  -  1 

UP  I  TE  <  LU ,  1 30  -  (  I C <  J  > , J=  1  ,  I  END  - 

:  130  FORMAT < 100R1  > 

:  C 

.  C  SEND  PEN  UP  COMMAND  TO  PLOTTER 

i  WRITE- LU,  150  ■ 

:  150  FORMAT < "PU“ > 

'  c 

RETURN 
'  END 


•X  COMPILER:  HP92S34  REV. 222b  <820503) 


NO  WARNINGS  ++  NO  ERRORS  ++  PROGRAM:  204  COMMON:  'NONE 
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:if 

UF'LAT-7 

ISSR 

K02 

‘ .  4  S  Y  L  E 

V 

0 

2 

V  7001 

Vi' 7  00  1 

Y 

0 

■ 

HP  PEN 

■-.F'LTFT 

Y 

0 

? 

WHERE 

*;  F'  L  T  F'  K 

Y 

0 

4 

PXPCG 

7. PL  i  PK 

V 

0 

4 

CGET 

V.PLTFT 

Y 

0 

1 

FACTO 

’-.PL  T  FT, 

Y 

0 

HPCSS 

-iPLTF'K 

\  • 

< 

0 

0 

HPCDR 

’-.PL  TFT 

Y 

0 

1 

HPF'AG 

V.PLTPK 

Y 

0 

£ 

PXPCO 

’-.PL  TFT 

Y 

0 

3 

LINE 

V.PLTPK 

Y 

0 

HF'OUT 

7.PLTFT 

4  • 

1 

0 

6 

PLOTS 

JiPLTPK 

Y 

0 

0 

FP2AS 

-iF'LTF'K 

Y 

0 

7 

NUMBE 

V.PLTPK 

Y 

0 

5 

SCALE 

V.PLTPK 

Y 

0 

PLOT 

P  L  T  FT 

Y 

0 

c* 

AXIS 

-;PLTFT 

4.' 

1 

0 

SYMEO 

V.PLTPK. 

Y 

0 

p* 

Y9O00 

V.Y900U 

44 

1 

0 

FES 

•  3  P  GUN  AM 

L I  BN AM 

CONTROL  LENGTH 

4  2 

AXIS 

V.PLTPK 

Y  0  1  <L  6  5 

v  7* 

Y  7  0  0  1 

V.  Y  7001 

Y  0004  2 

7  1 

ISSR 

V.4SYLB 

Y  0  d  0  0  7 

00 

Y  900C 

V.Y9000 

Y  02237 

■  - 

PLOT 

P  L  T  FT 

Y  00  cl  7 

5  c. 

SCALE 

V.PLTPK 

004  75 

HPF'AG 

P  L  T  FT 

Y  O0201 

54 

HF'F'EN 

V.F'LTFT 

Y  0005c 

2*  «!.' 

SYMEO 

V.PLTFT 

Y  02O12 

44 

HUM  BE 

'-.F'LTFT 

Y  00377 

4  3 

FP2AS 

’-.PL  TFT, 

Y  0037O 

3  3 

PLOTS 

PL  TFT 

Y  0033  6 

7  1 

HF'OUT 

V.PLTPK 

Y  00313 

04 

CGET 

V.PLTPK 

V  00074 

00 

LINE 

■'.F'LTFT 

Y  00273 

7  3 

PXPCO 

V.PLTPK 

Y  00256 

51 

HPCDR 

•--.F'LTFT 

Y  00170 

41 

HF'CSZ 

’-.F'LTFT 

Y  00163 

24 

FACTO 

■-;PL  TFT 

00111 

35 

PXPCG 

•-.F'LTFT 

Y  00074 

31 

10 

WHERE 

-i  F'LTFT 

Y  00057 

76 


'COc’ft 

T  =  00004  IS 

>01 

(jui 

’02 

A , OVRLYN 

1 0  3 

T  ,  SNF’5  1  C 

)  0  4 

)  0  5 

i  0  6 

1?  ,  700  1 

307 

0, 9000 

:i  0  s 

@E 

>09 

>10 

>1  1 

>12 

>13 

F  ,  ’ ;  Y  7  0  0 1 

>14 

Y, Y7001 

>15 

F  , Y  9  0  O  0 

>1  fc' 

Y, Y9000 

317 

F  ,  V.PLTPK 

318 

V ,  FIX  I S 

319 

F,  JjPLTPK 

320 

Y. SCALE 

321 

F,  V.PLTPK 

322 

Y, LINE 

323 

F,  JsPLTPK 

324 

Y,  PLOTS 

325 

F,  V.PLTPK 

326 

Y , PLOT 

027 

F  ,  V.PLTPK 

028 

Y,  HP PAG 

029 

F,  V.PLTPK 

030 

Y,  HUM EE 

031 

F,  V.FLTF4 

032 

Y.SYMBO 

033 

F  ,  1. PL T F  T 

034 

Y  ,  P  X  P  C  0 

035 

F,  V.PLTPK 

036 

Y, FACTO 

037 

F,  SjPLTPP 

038 

Y, HPCDR 

039 

F  ,  P  L  T  P  t 

040 

Y , HP OUT 

04  1 

F,  V.PLTPt 

042 

Y, HPPEN 

04  3 

F,  V.PLTPK 

044 

Y, PXPCG 

04  5 

F,  V.PLTPK 

046 

Y, WHERE 

047 

F,  V.PLTPK 

048 

Y , CGET 

049 

F,  V.FLTPK 

050 

Y, HPCSZ 

051 

F,  V.PLTPK 

052 

Y, FP2AS 

053 

F,  V.4SYLB 

054 

Y, ISSR 

055 

056 

F ,  N  3  5  0  0  ft 

057 

L,  ** 

058 

F , N350 1  A 

059 

L,  ** 

060 

F, A3060B 

061 

L,  ** 

062 

U,  ** 

063 

E ,  01 

064 

:  : 

o  N  CR  O  0  0  2  2  U  SING  0 0  0  0  6  E  L  t  S  R’= 0  0  0  O 


CiVC  06ft  54451 -14805  REV.  ft  0  c-  OCT  83 
ERSE  COMM  ft  NIi  FILE  FOR  USER  OVERLftV  GENERATION 
INSERT  V  C  0  MM  ft  NIi  NUMBERS  BEFORE  C»E  .  AN  EXAMPLE: 
is  <  n  m  7  7  .  WHERE  007?  -■=4 -DIGIT  V  COMMAND  NUHBEF 


C  S  0  R  T  + 

insert  frogfam  lords 
EXAMPLE:  F, Y77J0B 

" Y, Y  0077 


BETWEEN  "CSORT+-  AND  'CSORT- 
,  WHERE  ' Y77 JOE '  =  RILE  NAME 

,  WHERE  '  Y 0O77 =  PROG  NAME 


CSORT- 
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LISTINGS  OF  THE  COMMAND  AMD  THE  OVERLAY  GENERATION 

OF  THE  GENERAL  PLOT  PACKAGE  EVALUATION  PROGRAM  Y9000 


73 


DATA  AND  PLOT  PRODUCED  BY  PROGRAM  Y9000 


72 


PAGE  0003  Y90OO  10: 58  PM  THU.,  2?  DEC.,  1934 

0111  C 

0112  END 

FTN4  COMPILER:  HP920t'O- 1 6092  REV.  202*  <800423> 

**  NO  WARNINGS  **  NO  ERRORS  *•*  PROGRAM  =  Oil  S3  COMM 
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PAGE  6002  Y900O  16:58  AM  THU.,  27  DEC.,  1984 


0656  C 
0057  C 
0058 
0059 
6060 
0061  C 
0062  C 
0063 
0064 

0065  30 

6066 

0067  C 

0068  C 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077  5 

0078  C 
0079  C 
0080 
0081  C 
0082  C 
0033  C 
0034  C 
0035  C 
0036  C 
0087  C 
0088 
0089 
0090 
0091 
0092 
0093  C 
0094  C 
0095  C 
0096  C 
0097 
0093 
6099 
0 1  0  0  C 
0101 
0102  C 
0103  C 
0104 
0105  C 
0166  C 
0107 
0108  C 
0109  C 
0110 


DEFINE  FOURIER  DATA  IN  BLOCK  ZERO 
CALL  KYBDC2HB3, IBS) 

CALL  KYBDC2HCL,  I  BLOK  .' 

CALL  KYBIK2HRA) 

GET  SYSTEM  BLOCK  SIZE 
CALL  GETGK  I  BLOK, NQUAL) 

I F  <  NQUAL < 5  ) . NE . 0  >  WR I TE  C  6 , 30 >  < NQUAL <  J ) , J= 1 , 5 ) 
FORMAT  <  11  ERROR ",  5  <1 6 , 4X  )  > 

BS=NQUAL  <  1  ) 

PUT  FOURIER  DATA  INTO  X , Y  ARRAYS 
DO  5  I = 1 , BS 
11  =  1-1 

CALL  GET C I  BLOK, I  1 , DATA1 , D  A  T  A  2 > 

Y< I >  =  D  A  T  A 1 

CALL  KYBD C  2  H  Y  ,1800,1,1  1  > 

CALL  KYBD  <  2HY  ,1823, 2000 ,1,1  BLOK ,  1 > 

CALL  VGETFC2060,  1EUF.) 

X  <  I  >  =  X  X 
CONTINUE 

MANUALLY  LOAD  PAPER  ON  THE  PLOTTER 
I  F  <  I  P  A G  .  E  Q  .  2  .AND.  L  U  .  E 0 . 3 0  >  CALL  HF'PA G  <  3  > 


PLOT  THE  DATA 

TURN  ON  BITS  0-5  OF  S-REG  TO  SIGNAL  START  OF  OPERATION 
SOME  OF  THESE  BITS  WILL  BE  TURNED  OFF  DURING  THE  OPERATION. 

ALL  BITS  ON  EXCEPT  0-5  -  SIGNALS  COMPLETION  OF  PLOT  OPERATION. 

CALL  I SSR  <  77B > 

CALL  PLOT <1.0,1. 0,-3) 

CALL  SCALE  < X , 10.0, BS , 1 > 

CALL  SCALE < Y, 2.0, BS, 1 > 

CALL  LI NE  < X , Y , BS ,  1,0, 0 > 

DRAW  AND  LABEL  AXES 

TURN  ON  BITS  0-1  OF  S-REG  TO  SIGNAL  START  OF  OPERATION 
CALL  I SSR  <  7B  > 

CALL  AXIS <0. 0,6.0, 8H ABSCISS A, -8, 10.0,0. 0 , X < B S  + 1 > , X<E3+2>  > 

CALL  A X I S  <  0 . 0 , 0 . 0 , 8 H 0 R D I N A T E , +8, 6 . 0 , 90. 6 , Y  < BS+ 1 > , Y  < B S  +  2  > > 

TURN  OFF  BITS  0-1  OF  S-REG  TO  SIGNAL  END  '"'F  AXES  OPERATION 
CALL  I SSR  c  0  > 

SIGNAL  END  OF  PLOT  OPERATION 
CALL  I SSR  < 1 77700B ) 

GET  A  HARDCOPY 

CALL  PLOT <6. 0, 0. 0, IP) 

RESET  TERMINAL 

CALL  PLOT <0. 0, 0. 0,  1 1 > 


69 


PAGE  6661  FTH .  16:58  AM  THU., 


I'EC 


1884 


6661 

6662 

6663 

6664 
6  6  6  5 
6066 
6607 
0068 
0069 
0010 
0011 
0012 
0013 
0014 
0615 
0616 
0017 
0018 
0019 
6026 
062  1 
6622 
0623 
6024 

6625 

6626 
0027 
0628 
0629 
00  30 
0031 
0632 
0633 
0634 
0035 
0036 
0637 
6638 
0039 
0046 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 


•  5 


FTN4,  L 

SUEROUTINE  Y9066 
C 

C  THIS  ROUTINE  PROVIDES  ft  ME ft NS  OF  EVALUATING  THE 

C  GENERAL  PLOT  SUBROUTINE  PACKAGE  ON  THE  FOURIER  SYSTEM. 

C 

REAL  X* 130) , Y< 130) 

INTEGER  NQUftL *  5  ) , I£UF*2),ES 
EQUIVALENCE***,  IBUF) 

DATA  IBELL/3400E/ 

C: 

I BLOK=0 
I BS  = 1 28 
C 

C  CLEAR  SCREEN  AND  CLEAR  S-REGISTER 

CALL  Y7061 
CALL  I S  S  R  *  6  > 

C 

C:  REQUEST  INFORMATION  FROM  USER 

C 

WRITE*1,10)  I  BELL 

16  FORMAT < R2,  INPUT  PLOT  DEVICE  UNIT  NUMBER  (12  FORMAT)  "> 
READ <1,15)  LU 
15  FORMAT  (12) 

WRITE*1,18)  I  BELL 

18  FORMAT  <R2, /"THE  PLOT  PACKAGE  SETS  THE  SCALE  FACTOR  TO  ONE, 
* "  ft  FULL  PAGE  IS  ADVANCED  AND  PEN  NUMBER  ONE  IS",-- 
* " SELECTED  FOR  THE  PLOTTER.") 

WRITE* 1 , 20) 

26  FORMAT*  "THESE  FEATURES  MAY  BE  CHANGED  PROGRAMMATICALLY",  " 
* " INPUT  THE  INFORMATION  REQUESTED.  ") 

WRITE* 1 , 26) 

26  FORMAT  * / "ARE  CHANGES  DESIRED?  ENTER  0  FOR  NO;  1  FOR  YES") 
READ *1,24)  I CHG 

24  FORMAT (II) 

I F  *  I CHG . EQ. 0  )  GO  TO  1 
WRITE* 1,21) 

21  FORMAT* " INPUT  DESIRED  SCALE  FACTOR  *F6.3  FORMAT)") 

RE AD *1,22)  DSF 

22  F ORMAT  *  F6 . 3  ) 

WRITE* 1 , 23) 

23  FORMAT* " INPUT  PEN  NUMBER  1  -  8  *11  FORMAT)") 

READ *1,24)  NPEN 

WRITE* 1 , 25) 

25  FORMAT* " INPUT  PAGE  INFO:  6-FULL ; 1 -HALF ; 2-MANUAL  *11  FORMAT 

READ *1,24)  I  PAG 

1  CONTINUE 

C 
C 

C  INITIALIZE  PLOT  PACKAGE 

CALL  PL0TS*6. 0, LU) 

IF* ICHG. NE. 0)  CALL  FACTO  * DSF ) 

IF*  I  CHG.  NE.  0)  CALL  HPF’EN  ( NPEN  ) 

I  P*  1  0 

I F  < I  PAG . EQ . 1  .AND.  LU.EQ.30)  IP  =  -10 
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LISTING  OF  THE  GENERAL  PLOT  PACKAGE  EVALUATION  PROGRAM 

AND  A  PLOT  OF  THE  DATA  PRODUCED 
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PAGE 


L  X I 


PM  WED. 


FP2AS 


OPTS: 


DEC  . 


57  GO  TO  40O 

58  END 


FTN4'<  COMPILER:  HP92834  REV.  2226  < 820503 > 

**  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM:  235  COMMON 


SUBROUTINE  FP2AS<FP, NASC, ASC,  I) 


4  C 

5  C 

6  C 

7  C 

8  C 

9  C 
10  C 

1  1  c 

12  C 

13  C 

14 

15 

16 

17  C 

18  C 

19 

20 
21 
22 

2  3 
24 

C 

£. 

26 

27  C 

28  C 

29  100 

30 

31 

32 

33 

34  C 

35  C 

S  6  2  00 

37 

38 

39 

40 

41 

42  210 

43  C 

44  C 

45  300 

46 

47 

48 

49 

50  C 

51  C 

52  400 

53 

54 

55 

56 


THIS  ROUTINE  CONVERTS  ft  FLOATING  POINT  NUMBER  TO 
ft N  ASCII  CHARACTER  STRING 

FP  -  FLOATING  POINT  VALUE 

NASO  -  NO.  OF  CHARACTERS  TO  BE  RETURNED  IN  ASCII  STRING 
ASC  -  ARRAY  IN  WHICH  ASCII  CHARACTER  STRING  IS  RETURNED 
I  -  NO.  OF  CHARACTERS  TO  LEFT  OF  DECIMAL  POINT  < OUTPUT > 

REV  26  JUL  83:  CHANGED  'ALOG10'  TO  ' ALOGT ' 

INTEGER  ASC < 1 ) , IDIGC 10) 

DATA  IDIG'IHO, 1H1 , 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9 
DATA  I M I  1  H - •••  ,  IDP  '  1H.  s 

CHECK  FOR  MINUS  SIGN 
F  P  X  =  A  B  S  (  F  P  > 

1=0 

IFCNASC.LT. 1)  RETURN 
1  =  1 

IFCFP. GE. 0. >  GO  TO  10O 
A S C  i  I  >  =  I  MI 

IFd.GE.NASO  RETURN 
1=2 

CHECK  FOR  ABSOLUTE  VALUE  .  GT.  1 

IFCFPX.GE.l.)  GO  TO  2 O 0 

ASC  <  I  >  =  I  D  I  G  •  1 

IFd.GE.NASO  RETURN 

1  =  1  +  1 

GO  TO  300 

GET  NEXT  INTEGER  DIGIT 
I EXP  =  ALOGT ( FPX >  +  1 . 001 
DO  210  J= 1,1  EXP 
I  I=FPXd0.  **<  I  EXP- J  ) 

ASCd  )  =  IDIG(I  1  +  1  > 

IFd.GE.NASO  RETURN 
1  =  1  +  1 

FPX  =  FF'X -FLOAT  (  I  I  )  *  1 0 .  **  d EXP- J ) 


PUT  IN  DECIMAL  POINT 
I  X=  I 
1  =  1-1 

ASC  d  X )  =  I  DP 

I F < I X . GE . NASC )  RETURN 

IX=IX+1 

GET  NEXT  FRACTION  DIGIT 
I  I =FPX* 1 0 . 

ASC  dX>  =  IDIGdI  +  l  ) 
IFdX.GE.NASO  RETURN 
IX=IX+1 

FPX  =  FPX*10. -FLOAT  <  1  I  > 


PAGE 


1 


FTN. 


1984 


3  C 

4  C 

5  C 

6  C  I 

7  C 

8  C 
8  C 

10  C 
1  1  C 

12  C 

13  C 

14 

15  C 

16  C 

17 

18  C 

19  C 

20 

21  100 
cL  cL 

23 


SUBROUTINE  HPPEN(I) 

THIS  ROUTINE  SELECTS  ft  PEN  FOR  THE  HP-9872T  PLOTTER 

THE  PEN  POSITION  NUMBER.  IT  MUST  BE  ftN  INTEGER  IN  THE 
RANGE  0  THROUGH  8. 

0:  DIRECTS  THE  PEN  ARM  TO  RETURN  THE  PEN  IT  IS  CURRENTLY 
HOLDING  TO  ITS  STALL 

1-8:  DIRECTS  THE  PEN  ARM  TO  FETCH  THE  DESIRED  PEN 
REAL  RE  <  2 ) 

GET  UNIT  NUMBER 

CALL  PXPCCK  1 , LU, RE, OX, OY, SF, PX, PY> 

SELECT  THE  DESIRED  PEN 
WRITECLU, 100>  I 
FORMAT  < "SP"  ,11) 

RETURN 

END 


F T N 4 X  COMPILER:  HP92834  REV. 2226  (820503) 

**  NO  WARNINGS  **  NO  ERRORS  «*  PROGRAM:  51  COMMON:  (NONE 
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PAGE  1  FTN.  OPTS:  LX  I  3:32  PM  W  ED..  26 

2  SUBROUTINE  HPPAGCISW) 

3  C 

4  C  THIS  ROUTINE  CONTROLS  PAGINATION  ON  THE  HP-987 

5  C 

6  C  ISW  1:  FULL  PAGE  ADVANCE 

7  C  2:  HALF  PAGE  ADVANCE 

8  C  3:  MANUALLY  PLACE  SHEET  IN  POSITION 

9  REAL  RE  <  2  > 

10  DATA  IBELL/0O344OB.- 

1  1  C 

12  C  GET  UNIT  NUMBER 

13  CALL  PXF'COU  ,  LU,  RE,  OX,  OY,  SF,  PX,  PY) 

14  C 

15  C  CHECK  FOR  AUTOMATIC  PAGE  ADVANCE 

16  IF < ISW. EQ. 3)  GO  TO  250 

17  C 

18  C  ADVANCE  PAPER 

19  C 

20  C  FULL  PAGE  ADVANCE 

21  IF (ISW. EQ. 2>  GO  TO  150 

22  WRITECLU, 100) 

23  100  FORMAT  < "AF" > 

24  RETURN 

25  C 

26  C  HALF  PAGE  ADVANCE 

27  150  WRITE(LU, 200) 

28  200  FORMAT < "AH" > 

29  RETURN 

30  C 

31  C  MANUALLY  LOAD  SHEET 

32  250  WRITE (  1,300)  I  BELL 

33  300  FORMAT (A2, "PLACE  NEW  SHEET  OF  PAPER  ON  PLOTTER 

34  * "PRESS  (SPACE) (RETURN)  TO  CONTINUE.") 

35  RE AD (1,350)  I 

36  350  FORMAT (Al) 

37  C 

38  RETURN 

39  END 


FTN4X  COMPILER:  HP92834  REV. 2226  (820503) 

**  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM:  141 


DEC.,  1934 


2T  PLOTTER 


COMMON:  (NONE 
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E.hNTh  CLARA  DIVISION  AUTO  OVRLAY  GENERAT I  ON-fc  t  1 5 


*  A , OVRLYN 

*  T.SNP51C 


"  0 VC  Of A  54451-14805 
EASE  COMMAND  FILE  F OF' 


REV.  A  Of  OCT  83 
USER  OVERLAY  GENERATION 


♦ENTER  USERCOMMAND  NUMBERS, 


OR  TYPE  " 


ti 


*  C*,7 0O1 

Y  7  0  0  1 
Y  * ;  C  0  M 

♦  0,900 0 


INSERT  V  COMMAND  NUMBERS  BEFORE  'C»E  .  AN  EXAMPLE: 
"0.0077"  ,  WHERE  0077  - =4-E I G I T  Y  COMMAND  NUMBER 


01075  01075  0O434  00435 


Y  9O00 
Y’.C  OM 
♦  C«E 
Y  ’ ;  C  0  M 

47440  47440 


01074  01074  004  3  f  004  3  7 

00440  0O441 


TYRE  " L “  TO  LOAD  USERCOMMAND  LIBRARY 


*  F  ,  P  L  T  P  h 

♦  Y, AXIS 


CSOPT  + 

INSERT  PROGRAM  LOADS  BETWEEN  ' CSORT+  AND  ' CSUFT-" 
EXAMPLE:  F , Y77  JOB  ,  WHERE  V77J0B  -  FILE  NAME 

-  V , V  O  0  7  7  ,  WHERE  ' Y 0 0  7  7  '  =  PROG  NAME 


AXIS 


564  4  2  5772 f  01  Off  01073 


♦  LOAD  l° 


♦  F  ,  7,  Y  700  1 

♦  Y  ,  Y  7  O  O  1 

Y 7001  5772?  57770  01  Of 3  010f5 


♦  LOADS' 


♦  F  ,  ‘  i  4  S  Y  L  B 

♦  Y  ,  I  S  S  R 
♦♦♦♦♦*♦♦♦♦♦♦ 


I  S  S  R 


9 2  O  f  8-1 X O 1 9  R  E ‘ 


♦  LOADS’ 


*  F ,  '.Y90O0 

*  Y , Y9000 


Y9000  60000  62236  01052 


♦LORDS 


* 


*  F ,  P  L  T  F'  K 

*  Y , PLOT 


PLOT  62237  63055  01051 


♦LORDS 


*  F,V.PLTPK 

*  Y ,  S  C  ft  L  E 


SCALE  63056  63552 


01045 


♦  LORDS 


*  F ,  JJPLTPK 

*  Y , HPPftG 


HPF'flG 


f  n  =;  =;  iT  "7  e;  "■ 

C'  ■— 1  C1  I  v1 


♦LORDS 


* 

*  F.5SPLTPK 

♦  Y.HPPEN 


HPPEN  63754  64031  01043 


♦LORDS 

************ 

* 

*  F ,  JsPLTPK 

♦  Y , SYMBO 
************ 


0  1  062 


01051 


0105  0 


01044 


SYMBO  64032  66043 


01012  01042 


*  L  0  R  E  C“ 


*  F,:.FLTFk 

*  Y , NUMEE 


HUME'E  66044  66442  01010 


♦LORE® 


*  F  ,  y.FLTP K 

*  Y.FP2RS 


FP2RS  66443  6703; 


*LGfiE@ 


*  F.5SPLTPK 

*  Y, PLOTS 


PLOTS:  67033  67370 


♦LORE® 


*  F.JiPLTPK 

*  Y  ,  H  P  0  U  T 


HPOUT  67371  67703 


*LORB0 


*  F.MPLTPK 

*  Y.CGET 


CGET  67704  67; 


♦  10RBC- 

************ 

* 

*  F.’/.PLTPK 

*  Y.LINE 
************ 


01011 


LINE 


70000  70272 


*  L  0  ft  D  C“ 


*  F.V.PLTPK 

*  Y,  PXF'CO 


PXF'CO  70273  70550 


*LGftDC» 


* 

*  F ,  XPLTPt 

*  V, HPCDP 
**•*+■**  +  **■■*** 

HPCDP  70551  70740  01006 


*  L  0  ft  D  C* 

**♦♦**♦♦♦■•••*•*■ 


*  F  ,  F'  L  T  F  > 

*  V, HFCSr 


HF'CSZ 


70741  71  11 


♦  LOftDC* 


★ 


*  F  ,  XF'LTF'F 

*  V , FACTO 


FftCTO  71124  71234 


*LOflDC‘ 


* 

*  F  ,  V.PLTPK 

*  Y.PXPCG 


F'XPCC  71235  71330 

♦  LORDC- 


************ 

* 

*  F.V.PLTPK 

*  Y, WHERE 
************ 


01007 
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WHERE 


71331  7140? 


*L0ABC« 


*  CS0RT- 

*  F  ,  N  3  5  0  0  A 

*  L ,  ** 


FRMTR  71410  75222  00565  01005 

MOB  75223  75242 

MXMNI  75243  75356 

MXMNR 


*  L  X  7 


MINI 


75357 

75464 

BELE 

75465 

75516 

SNGL 

75517 

75561 

.  XF'AK 

75562 

75747 

.  X  C  0  M 

75750 

76015 

.  XFER 

76016 

76053 

ALOGT 

76054 

76062 

*LOABC“ 

00556  0O564 


*  F  ,  N  3  5  0 1  H 

*  L ,  ** 


AES  76063  76  0  6  7 

.ITCH  76O70  76202 

.  G  0  T  Ci  762  0  3  76224 

I  AES  00442  00450 


COMPUTE B  GO  TO 


*LOAB@ 


*  F.A3060E 

*  L ,  ** 

************ 


B .  05 

00451  00453 

00062 

00062 

B.06 

00060 

00060 

It  It  II 

00454  00456 

It  . 

00063 

00063 

II  II  If 

00457  00461 

B.  35 

00462  00464 

00061 

0006 1 

Ii.  76 

00055 

00O55 

ii  ii  ii 

0O465  00467 

1.05 

00046 

00046 

M  ii  » 

0047O  0O471 

C.  33 

00045 

00045 

ii  ii  ii 

00472  00473 

♦LOAB0 
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♦UNDEFINED  SYMBOLS 
BLANK  UTAH  GKF'LT 

♦AVAILABLE  MEMORY 
76225  76224 
00474  00555 


♦LOAD® 


*  E ,  O  1 


♦USER  LINKS 
76225  76233 
00556  01777 


♦OVERLAY  SYMBOL  TABLE 


.  E  I  0 . 

74637 

.  DFER 

7  6  0 1  6 

.  D  I  0  . 

74556 

01065, I 

.  D  T  A . 

74705 

01063, I 

.  GOTO 

7  6  2  O  3 

01051 , I 

.  IAR. 

74503 

.  I  AY . 

74450 

.110. 

7422  3 

0 1 064 , I 

.101. 

74  356 

.  I  OR. 

74315 

.  I  TO  I 

76070 

01015,1 

.  LDR . 

75601 

.  LST. 

70101 

.  PAR. 

74461 

.  R  A  Y  . 

74437 

.RIO. 

74235 

01061 , I 

.  KAY. 

74406 

.  X  C  0  M 

75750 

0O656, I 

.  XFER 

76025 

O0660, I 

.  X I  0  . 

74252 

.  XF'AK 

75562 

00635, I 

AES 

7606  3 

01011,1 

ALOGT 

76054 

01045, I 

AMAXO 

75243 

AM  AX  1 

75357 

01047,1 

AMINO 

75255 

AMIN1 

75371 

01046, I 

AXIS 

56456 

01052, I 

BCS 

70526 

BLANK 

01233, I 

C.  33 

00472 

00O45 , I 

CGET 

67707 

O 1037, I 

D.  05 

00451 

00062, I 

D.  06 

0O454 

00060, I 

D.  33 

004  57 

00063, 1 

D.  35 

00462 

0  0  0  61,1 

D.  76 

004  65 

00055, I 

DELE 

75465 

O  0 6 13,  I 

DT  AD 

v 

01573, I 

FAC  TO 

71131 

01057, I 

FP2AS 

6  6  461 

0 1 007 , I 

GKF'LT 

T-*  ■' 

01234, I 

HPCDR 

70564 

01041,1 

HP  CSS 

70755 

01O42, I 

HF'OUT 

67542 

0 1 O20 , I 

HF'PAG 

63560 

01055, I 

HF’F'EN 

63761 

O1056, I 

I  .  05 

0O470 

00046 , I 

I  AES 

00442 

01072, I 

IS  SR 

57771 

01062, 1 

LINE 

70006 

01053, I 

M  A  X  0 

75250 

MAXI 

75364 

MINO 

75262 

01006, I 

MOD 

75225 

01027, I 

NEW  10 

74655 

NUMBE 

66052 

01067, I 

OLD  10 

74662 

PLOT 

62260 

01070, I 

PLOTS 

6704  5 

0 1 060 , I 

F'XF'CG 

71240 

01030, I 

F'XPCO 

70321 

01073, I 

SCALE 

63074 

01054,  I 

SNGL 

75517 

00612, I 

SYMBO 

65104 

01066, I 

WHERE 

71340 

01010.  I 

Y  7001 

57731 

01075, I 

Y  9  0  O  0 

61017 

O1074,  I 

♦LINKS 

00556  01777 

♦AVAILABLE  MEMORY 
76225  76224 
00474  00555 

♦  END 


♦LOAD® 


♦♦♦♦#******♦ 
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" j "  ENCOUNTERED ,  OVERLAY  GENERATION  TERMINATED 
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END 


9-85 


DTIC 


